! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
! 
! The Reaction Rates File
! 
! Generated by KPP-2.2.3 symbolic chemistry Kinetics PreProcessor
!       (http://www.cs.vt.edu/~asandu/Software/KPP)
! KPP is distributed under GPL, the general public licence
!       (http://www.gnu.org/copyleft/gpl.html)
! (C) 1995-1997, V. Damian & A. Sandu, CGRER, Univ. Iowa
! (C) 1997-2005, A. Sandu, Michigan Tech, Virginia Tech
!     With important contributions from:
!        M. Damian, Villanova University, USA
!        R. Sander, Max-Planck Institute for Chemistry, Mainz, Germany
! 
! File                 : aromatics_kpp_Rates.f90
! Time                 : Thu Jun 11 15:48:57 2020
! Working directory    : /n/home08/kbates/Aromatics/MECCA_chamber
! Equation file        : aromatics_kpp.kpp
! Output root filename : aromatics_kpp
! 
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~



MODULE aromatics_kpp_Rates

  USE aromatics_kpp_Parameters
  USE aromatics_kpp_Global
  IMPLICIT NONE

CONTAINS



! Begin Rate Law Functions from KPP_HOME/util/UserRateLaws

!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!  User-defined Rate Law functions
!  Note: the default argument type for rate laws, as read from the equations file, is single precision
!        but all the internal calculations are performed in double precision
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

!~~~>  Arrhenius
   REAL(kind=dp) FUNCTION ARR( A0,B0,C0 )
      REAL A0,B0,C0      
      ARR =  DBLE(A0) * EXP(-DBLE(B0)/TEMP) * (TEMP/300.0_dp)**DBLE(C0)
   END FUNCTION ARR        

   REAL(kind=dp) FUNCTION TUN( A0,B0,C0 )
      REAL A0,B0,C0      
      TUN =  DBLE(A0) * EXP(DBLE(B0)/TEMP) * EXP(DBLE(C0)/TEMP**3)
   END FUNCTION TUN

   REAL(kind=dp) FUNCTION ISO1( A0,B0,C0,D0,E0,F0,G0 )
      REAL A0,B0,C0,D0,E0,F0,G0
      REAL(kind=dp) K0, K1, K2
      K0 = DBLE(D0)*EXP(DBLE(E0)/TEMP)*EXP(1.E8/TEMP**3)
      K1 = DBLE(F0)*EXP(DBLE(G0)/TEMP)
      K2 = DBLE(C0)*K0/(K0+K1)
      ISO1 =  DBLE(A0) * EXP(DBLE(B0)/TEMP) * (1.-K2)
   END FUNCTION ISO1

   REAL(kind=dp) FUNCTION ISO2( A0,B0,C0,D0,E0,F0,G0 )
      REAL A0,B0,C0,D0,E0,F0,G0
      REAL(kind=dp) K0, K1, K2
      K0 = DBLE(D0)*EXP(DBLE(E0)/TEMP)*EXP(1.E8/TEMP**3)
      K1 = DBLE(F0)*EXP(DBLE(G0)/TEMP)
      K2 = DBLE(C0)*K0/(K0+K1)
      ISO2 =  DBLE(A0) * EXP(DBLE(B0)/TEMP) * K2
   END FUNCTION ISO2

   REAL(kind=dp) FUNCTION ARRPLUS( A0,B0,C0,D0,E0 )
      REAL A0,B0,C0,D0,E0 
      REAL(kind=dp) K0     
      K0 = DBLE(A0) * (DBLE(D0)+(TEMP*DBLE(E0)))
      ARRPLUS =  K0 * EXP(-DBLE(B0)/TEMP) * (TEMP/300.0_dp)**DBLE(C0)
      IF (ARRPLUS < 0.0) ARRPLUS = 0.0
   END FUNCTION ARRPLUS

   REAL(kind=dp) FUNCTION TUNPLUS( A0,B0,C0,D0,E0 )
      REAL A0,B0,C0,D0,E0
      REAL(kind=dp) K0
      K0 = DBLE(A0) * (DBLE(D0)+(TEMP*DBLE(E0)))
      TUNPLUS = K0 * EXP(DBLE(B0)/TEMP) * EXP(DBLE(C0)/TEMP**3)
      IF (TUNPLUS < 0.0) TUNPLUS = 0.0
   END FUNCTION TUNPLUS

!~~~> Simplified Arrhenius, with two arguments
!~~~> Note: The argument B0 has a changed sign when compared to ARR
   REAL(kind=dp) FUNCTION ARR2( A0,B0 )
      REAL A0,B0           
      ARR2 =  DBLE(A0) * EXP( DBLE(B0)/TEMP )              
   END FUNCTION ARR2          

   REAL(kind=dp) FUNCTION EP2(A0,C0,A2,C2,A3,C3)
      REAL A0,C0,A2,C2,A3,C3
      REAL(kind=dp) K0,K2,K3            
      K0 = DBLE(A0) * EXP(-DBLE(C0)/TEMP)
      K2 = DBLE(A2) * EXP(-DBLE(C2)/TEMP)
      K3 = DBLE(A3) * EXP(-DBLE(C3)/TEMP)
      K3 = K3*CFACTOR*1.0E6_dp
      EP2 = K0 + K3/(1.0_dp+K3/K2 )
   END FUNCTION EP2

   REAL(kind=dp) FUNCTION EP3(A1,C1,A2,C2) 
      REAL A1, C1, A2, C2
      REAL(kind=dp) K1, K2      
      K1 = DBLE(A1) * EXP(-DBLE(C1)/TEMP)
      K2 = DBLE(A2) * EXP(-DBLE(C2)/TEMP)
      EP3 = K1 + K2*(1.0E6_dp*CFACTOR)
   END FUNCTION EP3 

   REAL(kind=dp) FUNCTION EPO(A1,E1,M1)
      REAL A1, E1, M1
      REAL(kind=dp) K1      
      K1 = 1.0_dp/(DBLE(M1) * CFACTOR + 1.0_dp)
      EPO = DBLE(A1) * EXP(DBLE(E1)/TEMP) *  K1
   END FUNCTION EPO

   REAL(kind=dp) FUNCTION KCO(A1,M1)
      REAL A1, M1
      KCO = DBLE(A1) * (1.0_dp + (CFACTOR / DBLE(M1)))
   END FUNCTION KCO

   REAL(kind=dp) FUNCTION FALL ( A0,B0,C0,A1,B1,C1,CF)
      REAL A0,B0,C0,A1,B1,C1,CF
      REAL(kind=dp) K0, K1     
      K0 = DBLE(A0) * EXP(-DBLE(B0)/TEMP)* (TEMP/300.0_dp)**DBLE(C0)
      K1 = DBLE(A1) * EXP(-DBLE(B1)/TEMP)* (TEMP/300.0_dp)**DBLE(C1)
      K0 = K0*CFACTOR*1.0E6_dp
      K1 = K0/K1
      FALL = (K0/(1.0_dp+K1))*   &
           DBLE(CF)**(1.0_dp/(1.0_dp+(LOG10(K1))**2))
   END FUNCTION FALL

   REAL(kind=dp) FUNCTION PAN ( A0,B0,C0,A1,B1,C1,CF)
      REAL A0,B0,C0,A1,B1,C1,CF
      REAL(kind=dp) K0, K1, KR, NC, F     
      K0 = DBLE(A0) * EXP(DBLE(B0)/TEMP) * (TEMP/300.0_dp)**DBLE(C0)
      K1 = DBLE(A1) * EXP(DBLE(B1)/TEMP) * (TEMP/300.0_dp)**DBLE(C1)
      K0 = K0*CFACTOR
      KR = K0/K1
      NC = 0.75_dp-1.27_dp*(LOG10(DBLE(CF)))
      F  = 10.0_dp**(LOG10(DBLE(CF))/(1+(LOG10(KR)/NC)**2))
      PAN = K0*K1*F/(K0+K1)
   END FUNCTION PAN

   REAL(kind=dp) FUNCTION VILA ( A0,B0,C0,A1,B1,C1)
      REAL A0,B0,C0,A1,B1,C1
      REAL(kind=dp) K0, K1     
      K0 = DBLE(A0) * EXP(DBLE(B0)/TEMP) * (TEMP/300.0_dp)**DBLE(C0)
      K1 = DBLE(A1) * EXP(DBLE(B1)/TEMP) * (TEMP/300.0_dp)**DBLE(C1)
      K0 = K0*CFACTOR
      VILA = K0*K1*0.35_dp/(K0+K1)
   END FUNCTION VILA

   REAL(kind=dp) FUNCTION NIT ( A0,B0,C0,n,X0,Y0)
      REAL A0,B0,C0,n,X0,Y0
      REAL(kind=dp) K0, K1, K2, K3, K4     
      K0 = 2.0E-22_dp * EXP(DBLE(n))
      K1 = 4.3E-1_dp*(TEMP/298.0_dp)**(-8)
      K0 = K0*CFACTOR
      K1 = K0/K1
      K2 = (K0/(1.0_dp+K1))*   &
           4.1E-1_dp**(1.0_dp/(1.0_dp+(LOG10(K1))**2))
      K3 = K2/(K2+DBLE(C0))
      K4 = DBLE(A0)*(DBLE(X0)-TEMP*DBLE(Y0))
      NIT = K4 * EXP(DBLE(B0)/TEMP) * K3
   END FUNCTION NIT

   REAL(kind=dp) FUNCTION ALK ( A0,B0,C0,n,X0,Y0)
      REAL A0,B0,C0,n,X0,Y0
      REAL(kind=dp) K0, K1, K2, K3, K4  
      K0 = 2.0E-22_dp * EXP(DBLE(n))
      K1 = 4.3E-1_dp*(TEMP/298.0_dp)**(-8)
      K0 = K0*CFACTOR
      K1 = K0/K1
      K2 = (K0/(1.0_dp+K1))*   &
           4.1E-1_dp**(1.0_dp/(1.0_dp+(LOG10(K1))**2))
      K3 = DBLE(C0)/(K2+DBLE(C0))
      K4 = DBLE(A0)*(DBLE(X0)-TEMP*DBLE(Y0))
      ALK = K4 * EXP(DBLE(B0)/TEMP) * K3
   END FUNCTION ALK

   REAL(kind=dp) FUNCTION EXTARR ( A0,B0,C0 )
      REAL A0,B0,C0      
      EXTARR =  DBLE(A0) * EXP(DBLE(C0)/TEMP) * (TEMP/300.0_dp)**DBLE(B0)
   END FUNCTION EXTARR

   REAL(kind=dp) FUNCTION IEMISS ( A0,B0,C0 )
      REAL A0,B0,C0 
      REAL(kind=dp) CT, CD, CL, BS, AT
      AT = DBLE(A0) * 8.314_dp * TEMP
      BS = DBLE(B0) * SUN
      CL = 2.88E-3_dp*BS/((1.0_dp+7.29E-6_dp*BS**2.0_dp)**0.5_dp)
      CT = EXP(9.5E+4_dp*(TEMP-DBLE(A0))/AT)
      CD = 1 + EXP(2.3E+5_dp*(TEMP-3.14E+2_dp)/AT)
      IEMISS = DBLE(C0) * CT * CL / CD
   END FUNCTION IEMISS

   REAL(kind=dp) FUNCTION MCMHV ( A0,B0,C0 )
      REAL A0,B0,C0
      IF (SUN.GT.0) THEN
         MCMHV = DBLE(A0) * SUN**DBLE(B0) * EXP(-DBLE(C0)/SUN)
      ELSE
         MCMHV = 0.0
      ENDIF
   END FUNCTION MCMHV

  !---------------------------------------------------------------------------

  ELEMENTAL REAL(kind=dp) FUNCTION k_3rd(temp,cair,k0_300K,n,kinf_300K,m,fc)

    INTRINSIC LOG10

    REAL(kind=dp), INTENT(IN) :: temp      ! temperature [K]
    REAL(kind=dp), INTENT(IN) :: cair      ! air concentration [molecules/cm3]
    REAL, INTENT(IN) :: k0_300K   ! low pressure limit at 300 K
    REAL, INTENT(IN) :: n         ! exponent for low pressure limit
    REAL, INTENT(IN) :: kinf_300K ! high pressure limit at 300 K
    REAL, INTENT(IN) :: m         ! exponent for high pressure limit
    REAL, INTENT(IN) :: fc        ! broadening factor (usually fc=0.6)
    REAL(kind=dp) :: zt_help, k0_T, kinf_T, k_ratio

    zt_help = 300._dp/temp
    k0_T    = k0_300K   * zt_help**(n) * cair ! k_0   at current T
    kinf_T  = kinf_300K * zt_help**(m)        ! k_inf at current T
    k_ratio = k0_T/kinf_T
    k_3rd   = k0_T/(1._dp+k_ratio)*fc**(1._dp/(1._dp+LOG10(k_ratio)**2))

  END FUNCTION k_3rd

  !---------------------------------------------------------------------------

  ELEMENTAL REAL(kind=dp) FUNCTION k_arr (k_298,tdep,temp)
    ! Arrhenius function

    REAL,     INTENT(IN) :: k_298 ! k at T = 298.15K
    REAL,     INTENT(IN) :: tdep  ! temperature dependence
    REAL(kind=dp), INTENT(IN) :: temp  ! temperature

    INTRINSIC EXP

    k_arr = k_298 * EXP(tdep*(1._dp/temp-3.3540E-3_dp)) ! 1/298.15=3.3540e-3

  END FUNCTION k_arr

  REAL(kind=dp) FUNCTION OH_O1D (J, H2O, TEMP, CFACTOR)
  REAL*8 J, H2O, TEMP, CFACTOR
  REAL*8 K1, K2, K3
  REAL*8 N2, O2

  N2=0.79d0
  O2=0.21d0

  K1=1.63d-10*exp(60d0/TEMP)
  K2=2.15d-11*exp(110d0/TEMP)
  K3=3.30d-11*exp(55d0/TEMP)

  OH_O1D=J*K1*H2O/(K1*H2O+K2*N2*CFACTOR+K3*O2*CFACTOR)
  END FUNCTION OH_O1D

  REAL(kind=dp) FUNCTION HO2_H2O(H2O,TEMP)
  REAL*8 TEMP, H2O
  HO2_H2O=1+1.4D-21*H2O*EXP(2200/TEMP)
  END FUNCTION HO2_H2O

  REAL(kind=dp) FUNCTION GCARR( A0,B0,C0 )
      REAL A0,B0,C0
      GCARR =  DBLE(A0) * EXP(DBLE(C0)/TEMP) * (300._dp/TEMP)**DBLE(B0)
  END FUNCTION GCARR

  REAL(kind=dp) FUNCTION GC_HO2NO3( A0,B0,C0,A1,B1,C1 )
      REAL A0,B0,C0,A1,B1,C1
      REAL(kind=dp) :: R0,R1
      R0 =  DBLE(A0) * EXP(DBLE(C0)/TEMP) * (300._dp/TEMP)**DBLE(B0)
      R1 =  DBLE(A1) * EXP(DBLE(C1)/TEMP) * (300._dp/TEMP)**DBLE(B1)

      GC_HO2NO3 = (R0+R1*CFACTOR)*(1.D0+1.4E-21_dp*CFACTOR*1.0E-2_dp &
                   * EXP(2200.E+0_dp/TEMP))
  END FUNCTION GC_HO2NO3

  REAL(kind=dp) FUNCTION GC_TBRANCH( A0,B0,C0,A1,B1,C1 )
! Temperature Dependent Branching Ratio                                                                                                     
      REAL A0,B0,C0,A1,B1,C1
      REAL(kind=dp) :: R0,R1
      R0 =  DBLE(A0) * EXP(DBLE(C0)/TEMP) * (300._dp/TEMP)**DBLE(B0)
      R1 =  DBLE(A1) * EXP(DBLE(C1)/TEMP) * (300._dp/TEMP)**DBLE(B1)

      GC_TBRANCH = R0/(1.D0+R1)

  END FUNCTION GC_TBRANCH

  REAL(kind=dp) FUNCTION GC_RO2HO2( A0,B0,C0,A1,B1,C1 )
! Carbon Dependence of RO2+HO2                                                                                                              
      REAL A0,B0,C0,A1,B1,C1
      REAL(kind=dp) :: R0,R1
      R0 =  DBLE(A0) * EXP(DBLE(C0)/TEMP) * (300._dp/TEMP)**DBLE(B0)
      R1 =  DBLE(A1) * EXP(DBLE(C1)/TEMP) * (300._dp/TEMP)**DBLE(B1)

      GC_RO2HO2 = R0*(1E0-EXP(-0.245E0*R1))

  END FUNCTION GC_RO2HO2

  REAL(kind=dp) FUNCTION GC_DMSOH( A0,B0,C0,A1,B1,C1 )
! DMS+OH+O2                                                                                                                                 
    REAL A0,B0,C0,A1,B1,C1
    REAL(kind=dp) :: R0,R1
    R0 =  DBLE(A0) * EXP(DBLE(C0)/TEMP) * (300._dp/TEMP)**DBLE(B0)
    R1 =  DBLE(A1) * EXP(DBLE(C1)/TEMP) * (300._dp/TEMP)**DBLE(B1)
!    GC_DMSOH = R0/(1e0_dp+R1*0.2095e0_dp)                                                                                                  
    GC_DMSOH = (R0*CFACTOR*0.2095e0_dp)/(1e0_dp+R1*0.2095e0_dp)

  END FUNCTION GC_DMSOH

  REAL(kind=dp) FUNCTION GC_GLYXNO3( A0,B0,C0 )
! ---  K = K1*([O2]+3.5D18)/(2*[O2]+3.5D18) --- HO2+2*CO branch of GLYX+OH/NO3                                                              
    REAL A0,B0,C0
    REAL(kind=dp) R0
    REAL(kind=dp) O2

    O2 = CFACTOR*0.2095e0_dp
    R0 =  DBLE(A0) * EXP(DBLE(C0)/TEMP) * (300._dp/TEMP)**DBLE(B0)
    GC_GLYXNO3 = R0*(O2+3.5E+18_dp)/(2.E+0_dp*O2+3.5E+18_dp)

  END FUNCTION GC_GLYXNO3

  REAL(kind=dp) FUNCTION GC_OHHNO3( A0,B0,C0,A1,B1,C1,A2,B2,C2 )
! ---  OH + HNO3:   K = K0 + K3[M] / (1 + K3[M]/K2)  ------                                                                                 
    REAL A0,B0,C0,A1,B1,C1,A2,B2,C2
    REAL(kind=dp) R0,R1,R2
    R0 =  DBLE(A0) * EXP(DBLE(C0)/TEMP) * (300._dp/TEMP)**DBLE(B0)
    R1 =  DBLE(A1) * EXP(DBLE(C1)/TEMP) * (300._dp/TEMP)**DBLE(B1)
    R2 =  CFACTOR*(DBLE(A2) * EXP(DBLE(C2)/TEMP) * (300._dp/TEMP)**DBLE(B2))
    GC_OHHNO3 = R0 + R2/(1.E0_dp + R2/R1)

  END FUNCTION GC_OHHNO3

  REAL(kind=dp) FUNCTION GC_GLYCOHA( A0,B0,C0 )
!                                                                                                                                           
    REAL A0,B0,C0,R0,GLYC_FRAC
    R0 =  DBLE(A0) * EXP(DBLE(C0)/TEMP) * (300._dp/TEMP)**DBLE(B0)
    GLYC_FRAC=1e+0_dp-11.0729e+0_dp*EXP(-(1._dp/73._dp)*TEMP)
    IF (GLYC_FRAC<0e+0_dp) GLYC_FRAC=0e+0_dp
    GC_GLYCOHA=R0*GLYC_FRAC

  END FUNCTION GC_GLYCOHA

  REAL(kind=dp) FUNCTION GC_GLYCOHB( A0,B0,C0 )
!                                                                                                                                           
    REAL A0,B0,C0
    REAL(kind=dp) :: R0,GLYC_FRAC
    R0 =  DBLE(A0) * EXP(DBLE(C0)/TEMP) * (300._dp/TEMP)**DBLE(B0)
    GLYC_FRAC=1e+0_dp-11.0729e+0_dp*EXP(-(1._dp/73._dp)*TEMP)
    IF (GLYC_FRAC<0e+0_dp) GLYC_FRAC=0e+0_dp
    GC_GLYCOHB=R0*(1e0_dp-GLYC_FRAC)

  END FUNCTION GC_GLYCOHB

  REAL(kind=dp) FUNCTION GC_HACOHA( A0,B0,C0 )
!                                                                                                                                           
    REAL A0,B0,C0
    REAL(kind=dp) :: R0,HAC_FRAC
    R0 =  DBLE(A0) * EXP(DBLE(C0)/TEMP) * (300._dp/TEMP)**DBLE(B0)
    HAC_FRAC=1e+0_dp-23.7e+0_dp*EXP(-(1._dp/60._dp)*TEMP)
    IF (HAC_FRAC<0e+0_dp) HAC_FRAC=0e+0_dp
    GC_HACOHA=R0*HAC_FRAC

  END FUNCTION GC_HACOHA

  REAL(kind=dp) FUNCTION GC_HACOHB( A0,B0,C0 )
!                                                                                                                                           
    REAL A0,B0,C0
    REAL(kind=dp) :: R0,HAC_FRAC
    R0 =  DBLE(A0) * EXP(DBLE(C0)/TEMP) * (300._dp/TEMP)**DBLE(B0)
    HAC_FRAC=1e+0_dp-23.7e+0_dp*EXP(-(1._dp/60._dp)*TEMP)
    IF (HAC_FRAC<0e+0_dp) HAC_FRAC=0e+0_dp
    GC_HACOHB=R0*(1.E0_dp-HAC_FRAC)

  END FUNCTION GC_HACOHB

  REAL(kind=dp) FUNCTION GC_OHCO( A0,B0,C0 )

    REAL A0,B0,C0,R0
    REAL KLO1,KLO2,KHI1,KHI2,XYRAT1,XYRAT2,BLOG1,BLOG2,FEXP1,FEXP2
    REAL KCO1,KCO2,KCO

    R0 =  DBLE(A0) * EXP(DBLE(C0)/TEMP) * (300._dp/TEMP)**DBLE(B0)
    R0 = R0 * (1.E+0_dp + 0.6e+0_dp*9.871E7_dp)

    ! new OH+CO rate from JPL2006.                                                                                                          
    KLO1=5.9E-33_dp*(300._dp/TEMP)**(1.E+0_dp)
    KHI1=1.1E-12_dp*(300._dp/TEMP)**(-1.3E0_dp)
    XYRAT1=KLO1*CFACTOR/KHI1
    BLOG1=LOG10(XYRAT1)
    FEXP1=1.E+0_dp/(1.E+0_dp+BLOG1*BLOG1)
    KCO1=KLO1*CFACTOR*0.6**FEXP1/(1.e+0_dp+XYRAT1)
    KLO2=1.5E-13_dp*(300._dp/TEMP)**(0.E+0_dp)
    KHI2=2.1e+09_dp *(300._dp/TEMP)**(-6.1E+0_dp)
    XYRAT2=KLO2*CFACTOR/KHI2
    BLOG2=LOG10(XYRAT2)
    FEXP2=1.E+0_dp/(1.E+0_dp+BLOG2*BLOG2)
    KCO2=KLO2*0.6**FEXP2/(1.e+0_dp+XYRAT2)
    KCO=KCO1+KCO2
    GC_OHCO=KCO

  END FUNCTION GC_OHCO

  REAL(kind=dp) FUNCTION GC_RO2NO( B,A0,B0,C0,A1,B1,C1 )
    ! ---  K = K1*(1-FYRNO3(K2,M,T))  ---  abstraction branch of RO2+NO                                                                     
    CHARACTER(*) B !Branch Toggle                                                                                                           
    REAL A0,B0,C0,A1,B1,C1
    REAL(kind=dp) :: R0,R1
    REAL(kind=dp) :: YYYN, XXYN,  AAA,  RARB, ZZYN
    REAL(kind=dp) :: XF, ALPHA, Y300, BETA, XMINF, XM0
    REAL(kind=dp) :: FYRNO3
    Y300 = 0.826
    ALPHA= 1.94e-22
    BETA = 0.97
    XM0  = 0.
    XMINF= 8.1
    XF   = 0.411

    R0 =  DBLE(A0) * EXP(DBLE(C0)/TEMP) * (300._dp/TEMP)**DBLE(B0)
    R1 =  DBLE(A1) * EXP(DBLE(C1)/TEMP) * (300._dp/TEMP)**DBLE(B1)

    ! Initialize static variables                                                                                                           

    XXYN   = ALPHA*EXP(BETA*R1)*CFACTOR*((300./TEMP)**XM0)
    YYYN   = Y300*((300./TEMP)**XMINF)
    AAA    = LOG10(XXYN/YYYN)
    ZZYN   = 1./(1.+ AAA*AAA )
    RARB   = (XXYN/(1.+ (XXYN/YYYN)))*(XF**ZZYN)
    FYRNO3 = RARB/(1. + RARB)
    IF (trim(B) .eq. 'A') THEN
       GC_RO2NO     = R0 * FYRNO3
    ELSEIF (trim(B) .eq. 'B') THEN
       GC_RO2NO     = R0 * (1.E+0_dp - FYRNO3)
    ENDIF

  END FUNCTION GC_RO2NO

  REAL(kind=dp) FUNCTION GCJPL3( k0_300, n, ki_300, m)
!  Functions given in JPL Booklet                                                                                                           
      REAL k0_300, n, ki_300,m
      REAL k0, ki

      k0=k0_300*((TEMP/300.d0)**(-n))
      ki=ki_300*((TEMP/300.d0)**(-m))

!      GCJPL3=(k0*CFACTOR)/(1+k0*CFACTOR/ki)*0.6** &                                                                                          
!       ((1+((LOG10(k0*CFACTOR/ki))**2d0)**-1.0d0))                                                                                          
      GCJPL3=(k0/(1.d0+k0/(ki/CFACTOR)))*0.6** &
        ((1+((log10(k0/(ki/CFACTOR)))**2d0)**1.0e0))
      GCJPL3=GCJPL3*CFACTOR
  END FUNCTION GCJPL3

  REAL(kind=dp) FUNCTION GCJPLEQ( A0,B0,C0,A1,B1,C1,A2,B2,C2,FV,FCT1,FCT2 )
 ! Function calculates the rate constant of the forward reaction                                                                            
 ! calculates the equilibrium constant                                                                                                      
 ! Find the backwards reaction by K=kforward/kbackwards                                                                                     
       REAL A0,B0,C0,A1,B1,C1
       REAL(kind=dp) :: R0,R1
       REAL, OPTIONAL :: A2,B2,C2,FV,FCT1,FCT2 !If a P-dependent rxn                                                                        

       ! Calculate Backwards reaction                                                                                                       
       R0 = GCARR( A0,B0,C0 )

       ! Calculate forwards reaction                                                                                                        
       IF (present(A2)) THEN ! P-dependent                                                                                                  
          IF (present(B2) .and. present(C2) .and. present(FV) &
                          .and. present(FCT1) .and. present(FCT2)) THEN
             R1 = GCJPLPR( A1,B1,C1,A2,B2,C2,FV,FCT1,FCT2)
          ELSE ! Missing params!                                                                                                            
             write(*,'(a)') 'GCJPLEQ: Missing parameters for P-dependent reaction.'
             write(*,'(a)') 'GCJPLEQ: Returning zero'
             GCJPLEQ = 0.E0
             RETURN
          ENDIF
       ELSE
          R1 = gcarr( A1,B1,C1 ) !Std. Arrhenius eqn.                                                                                       
       ENDIF

       GCJPLEQ=R1/R0
  END FUNCTION GCJPLEQ

  REAL(kind=dp) FUNCTION GCJPLPR(A0,B0,C0,A1,B1,C1,FV,FCT1,FCT2)
! * PRESSURE-DEPENDENT EFFECTS                                                                                                              
! * ADD THE THIRD BODY EFFECT FOR PRESSURE DEPENDENCE OF RATE                                                                               
! * COEFFICIENTS.                                                                                                                           
! A0 B0, & C0 are the Arrhenius parameters for the lower-limit                                                                              
! rate. A1, B1 & C1 are the upper-limit parameters.                                                                                         
! FV is the falloff curve paramter, (SEE ATKINSON ET. AL (1992)                                                                             
! J. PHYS. CHEM. REF. DATA 21, P. 1145). USUALLY = 0.6                                                                                      
!                                                                                                                                           
       REAL A0,B0,C0,A1,B1,C1,FV,FCT1,FCT2
       REAL FCT,XYRAT,BLOG,RLOW,RHIGH,FEXP

       RLOW  = GCARR( A0,B0,C0 )*CFACTOR
       RHIGH = GCARR( A1,B1,C1 )

       IF     (FCT2.NE.0.) THEN
             FCT            = EXP(-TEMP / FCT1) + EXP(-FCT2 / TEMP)
             XYRAT          = RLOW/RHIGH
             BLOG           = LOG10(XYRAT)
             FEXP           = 1.e+0_dp / (1.e+0_dp + BLOG * BLOG)
             GCJPLPR        = RLOW*FCT**FEXP/(1e+0_dp+XYRAT)
       ELSEIF (FCT1.NE.0.) THEN
             FCT            = EXP(-TEMP / FCT1)
             XYRAT          = RLOW/RHIGH
             BLOG           = LOG10(XYRAT)
             FEXP           = 1.e+0_dp / (1.e+0_dp + BLOG * BLOG)
             GCJPLPR        = RLOW*FCT**FEXP/(1e+0_dp+XYRAT)
       ELSE
             XYRAT          = RLOW/RHIGH
             BLOG           = LOG10(XYRAT)
             FEXP           = 1.e+0_dp / (1.e+0_dp + BLOG * BLOG)
             GCJPLPR        = RLOW*FV**FEXP/(1e+0_dp+XYRAT)
       ENDIF


  END FUNCTION GCJPLPR

  REAL(kind=dp) FUNCTION GCIUPAC3(ko_300,n,ki_300,m,Fc)
! Function calcualtes the rate constant of 3 body reaction using IUPAC                                                                      
! methology                                                                                                                                 
  REAL ko_300,n,ki_300,m,Fc
  REAL ko, ki, F, NN

  ko=ko_300*((TEMP/300.e0)**n)*CFACTOR
  ki=ki_300*((TEMP/300.e0)**m)

  NN=0.75-1.27*LOG10(Fc)
  F=10.0**(LOG10(Fc)/(1.0e0+(LOG10(ko/ki)/NN)**2.0))


  GCIUPAC3=ko/(1+ko/ki)*F
  END FUNCTION GCIUPAC3


!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!  End of User-defined Rate Law functions
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

! End Rate Law Functions from KPP_HOME/util/UserRateLaws


! Begin INLINED Rate Law Functions


! End INLINED Rate Law Functions

! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
! 
! Update_SUN - update SUN light using TIME
!   Arguments :
! 
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

  SUBROUTINE Update_SUN()
    SUN = 5.0e+1_dp/1.0e+1_dp
 END SUBROUTINE Update_SUN

! End of Update_SUN function
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
! 
! Update_RCONST - function to update rate constants
!   Arguments :
! 
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

SUBROUTINE Update_RCONST ( )




! Begin INLINED RCONST

 

 RO2 = & 
 C(ind_OXYLO2) + C(ind_OXYBIPERO2) + C(ind_MXYLO2) + C(ind_MXYBIPERO2) + & 
   C(ind_PXYLO2) + C(ind_PXYBIPERO2) + C(ind_BZBIPERO2) + &  
   C(ind_C6H5CH2O2) + C(ind_TLBIPERO2) + C(ind_OXYMUCCO3) + &  
   C(ind_OXYMUCO2) + C(ind_MC6CO2O2) + C(ind_NOXYOLO2) + C(ind_OXYOLO2) + &  
   C(ind_MXYMUCCO3) + C(ind_MXYMUCO2) + C(ind_C726CO5O2) + C(ind_CH3CO3) &  
   + C(ind_MXYOLO2) + C(ind_NMXYOLO2) + C(ind_PXYMUCCO3) + &  
   C(ind_PXYMUCO2) + C(ind_C6M5CO2O2) + C(ind_NPXYOLO2) + C(ind_PXYOLO2) &  
   + C(ind_BZEMUCCO3) + C(ind_BZEMUCO2) + C(ind_C5DIALO2) + &  
   C(ind_NPHENO2) + C(ind_PHENO2) + C(ind_CRESO2) + C(ind_NCRESO2) + &  
   C(ind_TLEMUCCO3) + C(ind_TLEMUCO2) + C(ind_C615CO2O2) + C(ind_OXYLCO3) &  
   + C(ind_OXYL1O2) + C(ind_CH3O2) + C(ind_EPXM2DLCO3) + C(ind_C4MCO2O2) &  
   + C(ind_DM123O2) + C(ind_MXYLCO3) + C(ind_MXYL1O2) + C(ind_C3MCODBCO3) &  
   + C(ind_C5CO14O2) + C(ind_EPXMDLCO3) + C(ind_C3MDIALO2) + &  
   C(ind_MXY1O2) + C(ind_PXYLCO3) + C(ind_PXYL1O2) + C(ind_PXY1O2) + &  
   C(ind_MALDIALCO3) + C(ind_EPXDLCO3) + C(ind_C3DIALO2) + &  
   C(ind_MALDIALO2) + C(ind_C6H5O2) + C(ind_C6H5CO3) + C(ind_NBZFUO2) + &  
   C(ind_BZFUO2) + C(ind_BIACETO2) + C(ind_C5DICARBO2) + &  
   C(ind_MC4CODBCO3) + C(ind_MC5CO2OHO2) + C(ind_NOXYFUO2) + &  
   C(ind_C6OTKETO2) + C(ind_OXYFUO2) + C(ind_NTLFUO2) + C(ind_TLFUO2) + &  
   C(ind_OXCATEC1O2) + C(ind_C4MCODBCO3) + C(ind_C5MCO2OHO2) + &  
   C(ind_NMXYFUO2) + C(ind_C23O3MO2) + C(ind_MXYFUO2) + C(ind_MC3CODBCO3) &  
   + C(ind_C4M2ALOHO2) + C(ind_NPXYFUO2) + C(ind_MCOCOMOXO2) + &  
   C(ind_PXYFUO2) + C(ind_HCOCH2O2) + C(ind_MXCATEC1O2) + C(ind_DMKOHO2) &  
   + C(ind_C4CO2O2) + C(ind_PXCATEC1O2) + C(ind_HCOCOHCO3) + &  
   C(ind_CATEC1O2) + C(ind_MCATEC1O2) + C(ind_NTMB1FUO2) + &  
   C(ind_TMB1FUO2) + C(ind_HCOCO3) + C(ind_MECOACETO2) + C(ind_NOXYOL1O2) &  
   + C(ind_NOXYQO2) + C(ind_OXYQO2) + C(ind_OXNNCATCO2) + &  
   C(ind_OXNCATECO2) + C(ind_C534O2) + C(ind_CHOMOHCO3) + C(ind_CO2H3CO3) &  
   + C(ind_NMXYOL1O2) + C(ind_NMXYQO2) + C(ind_MXYQO2) + &  
   C(ind_MXNNCATCO2) + C(ind_MXNCATECO2) + C(ind_NPXYOL1O2) + &  
   C(ind_NPXYQO2) + C(ind_PXYQO2) + C(ind_PXNNCATCO2) + C(ind_PXNCATECO2) &  
   + C(ind_NPHEN1O2) + C(ind_NNCATECO2) + C(ind_NCATECO2) + C(ind_NBZQO2) &  
   + C(ind_PBZQO2) + C(ind_NPTLQO2) + C(ind_PTLQO2) + C(ind_NCRES1O2) + &  
   C(ind_MNNCATECO2) + C(ind_MNCATECO2) + C(ind_HOCH2CO3) + &  
   C(ind_CH3COCH2O2) + C(ind_MEKBO2) + C(ind_C6O4KETO2) + &  
   C(ind_NDNOXYOLO2) + C(ind_DNOXYOLO2) + C(ind_ACCOCOMEO2) + &  
   C(ind_C535O2) + C(ind_MMALANHYO2) + C(ind_CH3COCO3) + C(ind_MALANHYO2) &  
   + C(ind_NDNMXYOLO2) + C(ind_DNMXYOLO2) + C(ind_TL4OHNO2O2) + &  
   C(ind_NDNPXYOLO2) + C(ind_DNPXYOLO2) + C(ind_NDNPHENO2) + &  
   C(ind_DNPHENO2) + C(ind_NDNCRESO2) + C(ind_DNCRESO2) + &  
   C(ind_ACCOMECO3) + C(ind_C5M2OHOCO3) + C(ind_C4COMOHCO3) + &  
   C(ind_C23O3MCO3) + C(ind_C23O3CCO3) + C(ind_C7CO2OHCO3) + &  
   C(ind_C6MOHCOCO3) + C(ind_C5CO2OHCO3) + C(ind_C6CO2OHCO3) + &  
   C(ind_C4DBM2CO3) + C(ind_C5CO234O2) + C(ind_C5CO2DBCO3) + &  
   C(ind_C5DBCO2CO3) + C(ind_C4CO2DBCO3 ) + C(ind_MO2m) 


! End INLINED RCONST

  RCONST(1) = (7.45E4*(TEMP/300.)**-2.6)
  RCONST(2) = (8.0E-12*EXP(-2060./TEMP))
  RCONST(3) = (PAN(1.0E-31,0.0,-1.6,5.0E-11,0.0,-0.3,0.85))
  RCONST(4) = (5.5E-12*EXP(188./TEMP))
  RCONST(5) = (PAN(1.3E-31,0.0,-1.5,2.3E-11,0.0,0.24,0.6))
  RCONST(6) = (1.68E8*EXP(67./TEMP)+3.95E8*EXP(130./TEMP))
  RCONST(7) = (1.4E-12*EXP(-1310./TEMP))
  RCONST(8) = (1.4E-13*EXP(-2470./TEMP))
  RCONST(9) = (1.7E-20*EXP(530./TEMP))
  RCONST(10) = (1.8E-11*EXP(110./TEMP))
  RCONST(11) = (4.50E-14*EXP(-1260./TEMP))
  RCONST(12) = (PAN(3.6E-30,0.0,-4.1,1.9E-12,0.0,0.2,0.35))
! RCONST(13) = constant rate coefficient
  RCONST(14) = (1.70E-12*EXP(-940./TEMP))
  RCONST(15) = (7.7E-12*EXP(-2100./TEMP))
  RCONST(16) = (2.9E-12*EXP(-160./TEMP))
  RCONST(17) = (2.03E-16*EXP(693./TEMP)*(TEMP/300.)**4.57)
  RCONST(18) = (4.8E-11*EXP(250./TEMP))
  RCONST(19) = ((1+(3.5E-4*EXP(2200./TEMP)))*(2.20E-13*EXP(600./TEMP)+4.75E-14*EXP(980./TEMP)))
  RCONST(20) = (PAN(7.4E-31,0.0,-2.4,3.3E-11,0.0,-0.3,0.81))
  RCONST(21) = (PAN(3.2E-30,0.0,-4.5,3.0E-11,0.0,0.0,0.41))
! RCONST(22) = constant rate coefficient
  RCONST(23) = (3.45E-12*EXP(270./TEMP))
  RCONST(24) = (PAN(1.4E-31,0.0,-3.1,4.0E-12,0.0,0.0,0.4))
  RCONST(25) = (3.2E-13*EXP(690./TEMP))
! RCONST(26) = constant rate coefficient
  RCONST(27) = (2.5E-12*EXP(260./TEMP))
  RCONST(28) = (2.4E-14*EXP(460./TEMP)+(1.625E-14*EXP(1335./TEMP))/(1+(602.*EXP(-864./TEMP))))
  RCONST(29) = (SUN*3.78E-5)
  RCONST(30) = (SUN*4.41E-4)
  RCONST(31) = (SUN*7.88E-6)
  RCONST(32) = (SUN*8.92E-3)
  RCONST(33) = (SUN*2.23E-2)
  RCONST(34) = (SUN*1.54E-1)
  RCONST(35) = (SUN*1.98E-3)
  RCONST(36) = (SUN*6.85E-7)
  RCONST(37) = (GCARR(8.50E-13,0.0E+00,-2450.0))
  RCONST(38) = (SUN*4.5E-5)
  RCONST(39) = (SUN*5.21E-6)
  RCONST(40) = (PAN(1.3E-3,-1.1E4,-3.5,9.7E14,-1.108E4,0.1,0.35))
  RCONST(41) = (PAN(4.1E-5,-10650.0,0.0,6.0E15,-11170.0,0.0,0.4))
  RCONST(42) = (GCARR(2.80E-12,0.0E+00,300.0))
  RCONST(43) = (GCARR(4.10E-13,0.0E+00,750.0))
  RCONST(44) = (GC_TBRANCH(9.50E-14,0.0E+00,390.0,2.62E1,0.0,-1130.0))
  RCONST(45) = (GC_TBRANCH(9.50E-14,0.0E+00,390.0,4.E-2,0.0,1130.0))
  RCONST(46) = (GCJPLPR(1.00E-30,4.8E+00,0.0,7.2E-12,2.1E0,0.0,0.6,0.0,0.0))
  RCONST(47) = (GCJPLPR(1.05E-02,4.8E+00,-11234.0,7.58E16,2.1E0,-11234.0,0.6,0.0,0.0))
  RCONST(48) = (GCARR(2.66E-12,0.0E+00,200.0))
  RCONST(49) = (GCARR(1.14E-12,0.0E+00,200.0))
  RCONST(50) = (GCARR(5.50E-12,0.0E+00,125.0))
  RCONST(51) = (GCARR(5.80E-16,0.0E+00,0.0))
  RCONST(52) = (GCARR(2.90E-12,0.0E+00,-345.0))
  RCONST(53) = (KCO(1.44E-13,4.2E19))
  RCONST(54) = (SUN*6.49E-6)
  RCONST(55) = (SUN*4.65E-5)
  RCONST(56) = (SUN*6.01E-5)
  RCONST(57) = (SUN*0.05*1.95E-4)
  RCONST(58) = (SUN*0.95*1.95E-4)
  RCONST(59) = (GCARR(2.45E-12,0.0E+00,-1775.0))
  RCONST(60) = (GCARR(2.80E-12,0.0E+00,300.0))
  RCONST(61) = (GCARR(4.10E-13,0.0E+00,750.0))
  RCONST(62) = (GC_TBRANCH(9.50E-14,0.0E+00,390.0,2.62E1,0.0,-1130.0))
  RCONST(63) = (GC_TBRANCH(9.50E-14,0.0E+00,390.0,4.E-2,0.0,1130.0))
  RCONST(64) = (GC_TBRANCH(9.50E-14,0.0E+00,390.0,2.62E1,0.0,-1130.0))
  RCONST(65) = (GC_TBRANCH(9.50E-14,0.0E+00,390.0,4.E-2,0.0,1130.0))
  RCONST(66) = (GCJPLPR(1.00E-30,4.8E+00,0.0,7.2E-12,2.1E0,0.0,0.6,0.0,0.0))
  RCONST(67) = (GCJPLPR(1.05E-02,4.8E+00,-11234.0,7.58E16,2.1E0,-11234.0,0.6,0.0,0.0))
  RCONST(68) = (GCARR(2.66E-12,0.0E+00,200.0))
  RCONST(69) = (GCARR(1.14E-12,0.0E+00,200.0))
  RCONST(70) = (GCARR(5.50E-12,0.0E+00,125.0))
  RCONST(71) = (GCARR(5.80E-16,0.0E+00,0.0))
  RCONST(72) = (GCARR(2.90E-12,0.0E+00,-345.0))
  RCONST(73) = (KCO(1.44E-13,4.2E19))
  RCONST(74) = (SUN*6.49E-6)
  RCONST(75) = (SUN*4.65E-5)
  RCONST(76) = (SUN*6.01E-5)
  RCONST(77) = (SUN*0.05*1.95E-4)
  RCONST(78) = (SUN*0.95*1.95E-4)
  RCONST(79) = (SUN*3.1E-3)
  RCONST(80) = (GCARR(3.36E-12,0.0E+00,-1860.0))
  RCONST(81) = (GCARR(1.50E-11,0.0E+00,0.0))
  RCONST(82) = (SUN*8.46E-5)
  RCONST(83) = (SUN*8.61E-6)
  RCONST(84) = (SUN*3.71E-5)
  RCONST(85) = (GC_GLYXNO3(1.40E-12,0.0E+00,-1860.0))
  RCONST(86) = (GCARR(3.10E-12,0.0E+00,340.0))
  RCONST(87) = (SUN*6.4E-6)
  RCONST(88) = (GCARR(4.63E-12,0.0E+00,350.0))
  RCONST(89) = (GCARR(1.40E-12,0.0E+00,-1900.0))
  RCONST(90) = (GCARR(6.13E-13,0.0E+00,200.0))
  RCONST(91) = (SUN*3.0E-5)
  RCONST(92) = (GCJPLEQ(9.30E-29,0.0E+00,14000.0,9.7E-29,5.6E0,0.0,9.3E-12,1.5E0,0.,0.6,0.,0.))
  RCONST(93) = (SUN*1.0E-6)
  RCONST(94) = (GCARR(1.80E-12,0.0E+00,500.0)*0.1*RO2)
  RCONST(95) = (GCARR(1.80E-12,0.0E+00,500.0)*0.9*RO2)
  RCONST(96) = (GCJPLPR(9.70E-29,5.6E+00,0.0,9.3E-12,1.5E0,0.0,0.6,0.0,0.0))
  RCONST(97) = (GCARR(8.10E-12,0.0E+00,270.0))
  RCONST(98) = (GCARR(5.20E-13,0.0E+00,980.0))
  RCONST(99) = (GC_GLYCOHA(8.00E-12,0.0E+00,0.0))
  RCONST(100) = (GC_GLYCOHB(8.00E-12,0.0E+00,0.0))
  RCONST(101) = (SUN*1.67E-5)
! RCONST(102) = constant rate coefficient
! RCONST(103) = constant rate coefficient
! RCONST(104) = constant rate coefficient
! RCONST(105) = constant rate coefficient
! RCONST(106) = constant rate coefficient
  RCONST(107) = (2.3D-12*EXP(-190/TEMP)*0.352)
  RCONST(108) = (2.3D-12*EXP(-190/TEMP)*0.118)
  RCONST(109) = (2.3D-12*EXP(-190/TEMP)*0.53)
  RCONST(110) = (1.8D-12*EXP(340/TEMP)*0.07)
  RCONST(111) = (1.8D-12*EXP(340/TEMP)*0.18)
  RCONST(112) = (1.8D-12*EXP(340/TEMP)*0.65)
  RCONST(113) = (1.8D-12*EXP(340/TEMP)*0.10)
  RCONST(114) = (2.91D-13*EXP(1300/TEMP)*0.859)
  RCONST(115) = (2.7D-12*EXP(360/TEMP)*0.105)
  RCONST(116) = (2.7D-12*EXP(360/TEMP)*0.895)
! RCONST(117) = constant rate coefficient
  RCONST(118) = (1.30D-12*0.20*RO2)
  RCONST(119) = (1.30D-12*0.60*RO2)
  RCONST(120) = (1.30D-12*0.20*RO2)
  RCONST(121) = (2.7D-12*EXP(360/TEMP)*0.138)
  RCONST(122) = (2.7D-12*EXP(360/TEMP)*0.862)
! RCONST(123) = constant rate coefficient
  RCONST(124) = (9.20D-14*RO2*0.70)
  RCONST(125) = (9.20D-14*RO2*0.30)
  RCONST(126) = (2*1.4D-12*EXP(-1860/TEMP)*4.25)
  RCONST(127) = (2.00D-18)
  RCONST(128) = (5.99D-11*0.632)
  RCONST(129) = (5.99D-11*0.368)
  RCONST(130) = (SUN*8.92E-3*0.05*0.5)
  RCONST(131) = (SUN*8.92E-3*0.05*0.5)
  RCONST(132) = (3.20D-11*0.51)
  RCONST(133) = (3.20D-11*0.39)
  RCONST(134) = (3.20D-11*0.10)
  RCONST(135) = (8.00D-11*0.07)
  RCONST(136) = (8.00D-11*0.73)
  RCONST(137) = (8.00D-11*0.20)
  RCONST(138) = (2.91D-13*EXP(1300/TEMP)*0.859)
  RCONST(139) = (2.7D-12*EXP(360/TEMP)*0.105)
  RCONST(140) = (2.7D-12*EXP(360/TEMP)*0.895)
! RCONST(141) = constant rate coefficient
  RCONST(142) = (1.30D-12*0.20*RO2)
  RCONST(143) = (1.30D-12*0.60*RO2)
  RCONST(144) = (1.30D-12*0.20*RO2)
  RCONST(145) = (2.7D-12*EXP(360/TEMP)*0.138)
  RCONST(146) = (2.7D-12*EXP(360/TEMP)*0.862)
! RCONST(147) = constant rate coefficient
  RCONST(148) = (8.80D-13*RO2*0.6)
  RCONST(149) = (8.80D-13*RO2*0.2)
  RCONST(150) = (8.80D-13*RO2*0.2)
  RCONST(151) = (1.4D-12*EXP(-1860/TEMP)*4.25)
  RCONST(152) = (2.00D-18)
  RCONST(153) = (8.02D-11*0.26)
  RCONST(154) = (8.02D-11*0.74)
  RCONST(155) = (SUN*8.92E-3*0.028*0.5)
  RCONST(156) = (SUN*8.92E-3*0.028*0.5)
  RCONST(157) = (4.50D-11*0.39)
  RCONST(158) = (4.50D-11*0.10)
  RCONST(159) = (4.50D-11*0.51)
  RCONST(160) = (9.10D-11*0.07)
  RCONST(161) = (9.10D-11*0.42)
  RCONST(162) = (9.10D-11*0.51)
  RCONST(163) = (2.91D-13*EXP(1300/TEMP)*0.820)
  RCONST(164) = (2.7D-12*EXP(360/TEMP)*0.105)
  RCONST(165) = (2.7D-12*EXP(360/TEMP)*0.895)
! RCONST(166) = constant rate coefficient
  RCONST(167) = (1.30D-12*0.20*RO2)
  RCONST(168) = (1.30D-12*0.60*RO2)
  RCONST(169) = (1.30D-12*0.20*RO2)
  RCONST(170) = (2.7D-12*EXP(360/TEMP)*0.138)
  RCONST(171) = (2.7D-12*EXP(360/TEMP)*0.862)
! RCONST(172) = constant rate coefficient
  RCONST(173) = (9.20D-14*RO2*0.70)
  RCONST(174) = (9.20D-14*RO2*0.30)
  RCONST(175) = (1.4D-12*EXP(-1860/TEMP)*4.25)
  RCONST(176) = (5.00D-18)
  RCONST(177) = (7.88D-11*0.26)
  RCONST(178) = (7.88D-11*0.74)
  RCONST(179) = (SUN*8.92E-3*0.1*0.5)
  RCONST(180) = (SUN*8.92E-3*0.1*0.5)
  RCONST(181) = (3.48D-11*0.51)
  RCONST(182) = (3.48D-11*0.39)
  RCONST(183) = (3.48D-11*0.10)
  RCONST(184) = (8.00D-11*0.07)
  RCONST(185) = (8.00D-11*0.73)
  RCONST(186) = (8.00D-11*0.2)
  RCONST(187) = (2.7D-12*EXP(360/TEMP)*0.082)
  RCONST(188) = (2.7D-12*EXP(360/TEMP)*0.918)
! RCONST(189) = constant rate coefficient
  RCONST(190) = (8.80D-13*RO2*0.2)
  RCONST(191) = (8.80D-13*RO2*0.6)
  RCONST(192) = (8.80D-13*RO2*0.2)
  RCONST(193) = (2*1.4D-12*EXP(-1860/TEMP)*2.75)
  RCONST(194) = (2.00D-18)
  RCONST(195) = (6.08D-11*0.31)
  RCONST(196) = (6.08D-11*0.69)
  RCONST(197) = (SUN*8.92E-3*0.1*0.5)
  RCONST(198) = (SUN*8.92E-3*0.1*0.5)
  RCONST(199) = (3.8D-12*0.742)
  RCONST(200) = (3.8D-12*0.258)
  RCONST(201) = (4.7D-13*EXP(1220/TEMP)*0.06)
  RCONST(202) = (4.7D-13*EXP(1220/TEMP)*0.8)
  RCONST(203) = (4.7D-13*EXP(1220/TEMP)*0.14)
  RCONST(204) = (1.5D-13*EXP(1310/TEMP))
  RCONST(205) = (2.7D-12*EXP(360/TEMP)*0.105)
  RCONST(206) = (2.7D-12*EXP(360/TEMP)*0.895)
! RCONST(207) = constant rate coefficient
  RCONST(208) = (2*(1.03D-13*EXP(365/TEMP)*2.4D-14*EXP(1620/TEMP))**0.5*RO2*0.2)
  RCONST(209) = (2*(1.03D-13*EXP(365/TEMP)*2.4D-14*EXP(1620/TEMP))**0.5*RO2*0.6)
  RCONST(210) = (2*(1.03D-13*EXP(365/TEMP)*2.4D-14*EXP(1620/TEMP))**0.5*RO2*0.2)
  RCONST(211) = (1.4D-11*0.103)
  RCONST(212) = (1.4D-11*0.506)
  RCONST(213) = (1.4D-11*0.391)
  RCONST(214) = (4.65D-11*0.200)
  RCONST(215) = (4.65D-11*0.727)
  RCONST(216) = (4.65D-11*0.073)
  RCONST(217) = (2.7D-12*EXP(360/TEMP)*0.889)
  RCONST(218) = (2.7D-12*EXP(360/TEMP)*0.111)
! RCONST(219) = constant rate coefficient
  RCONST(220) = (8.80D-13*RO2*0.20)
  RCONST(221) = (8.80D-13*RO2*0.60)
  RCONST(222) = (8.80D-13*RO2*0.20)
  RCONST(223) = (1.4D-12*EXP(-1860/TEMP)*2.75)
  RCONST(224) = (5.00D-18)
  RCONST(225) = (7.99D-11*0.31)
  RCONST(226) = (7.99D-11*0.69)
  RCONST(227) = (SUN*8.92E-3*0.1*0.5)
  RCONST(228) = (SUN*8.92E-3*0.1*0.5)
  RCONST(229) = (2.75D-11)
  RCONST(230) = (SUN*5.79E-6)
  RCONST(231) = (1.31D-11)
  RCONST(232) = (SUN*1.79E-6)
  RCONST(233) = (2.50D-14*EXP(-300/TEMP))
  RCONST(234) = (1.4D-12*EXP(-1860/TEMP))
  RCONST(235) = (1.29D-11)
  RCONST(236) = (SUN*1.10E-6)
  RCONST(237) = (SUN*1.10E-6)
  RCONST(238) = (1.60D-11)
  RCONST(239) = (7.62D-11)
  RCONST(240) = (SUN*5.79E-6)
  RCONST(241) = (7.28D-11)
  RCONST(242) = (SUN*8.33E-6)
  RCONST(243) = (1.00D+06*0.175)
  RCONST(244) = (1.00D+06*0.245)
  RCONST(245) = (1.00D+06*0.175)
  RCONST(246) = (1.00D+06*0.08)
  RCONST(247) = (1.00D+06*0.08)
  RCONST(248) = (1.00D+06*0.245)
  RCONST(249) = (1.11D-10)
  RCONST(250) = (5.2D-13*EXP(980/TEMP)*0.44)
  RCONST(251) = (5.2D-13*EXP(980/TEMP)*0.15)
  RCONST(252) = (5.2D-13*EXP(980/TEMP)*0.41)
  RCONST(253) = (7.5D-12*EXP(290/TEMP))
  RCONST(254) = (PAN(3.28E-28,0.,-6.87,1.125E-11,0.,-1.105,0.3))
  RCONST(255) = (2.3E-12*1.74)
  RCONST(256) = (1.00D-11*RO2*0.70)
  RCONST(257) = (1.00D-11*RO2*0.30)
  RCONST(258) = (2*1.4D-12*EXP(-1860/TEMP)*8.5)
  RCONST(259) = (4.24D-11)
  RCONST(260) = (SUN*5.50E-5*2)
  RCONST(261) = (1.00D+06*0.18)
  RCONST(262) = (1.00D+06*0.125)
  RCONST(263) = (1.00D+06*0.125)
  RCONST(264) = (1.00D+06*0.57)
  RCONST(265) = (2.91D-13*EXP(1300/TEMP)*0.859)
  RCONST(266) = (2.7D-12*EXP(360/TEMP)*0.173)
  RCONST(267) = (2.7D-12*EXP(360/TEMP)*0.827)
! RCONST(268) = constant rate coefficient
  RCONST(269) = (8.80D-12*RO2*0.20)
  RCONST(270) = (8.80D-12*RO2*0.60)
  RCONST(271) = (8.80D-12*RO2*0.20)
  RCONST(272) = (2.91D-13*EXP(1300/TEMP)*0.820)
  RCONST(273) = (2.7D-12*EXP(360/TEMP))
! RCONST(274) = constant rate coefficient
  RCONST(275) = (9.20D-14*RO2*0.70)
  RCONST(276) = (9.20D-14*RO2*0.30)
  RCONST(277) = (2.91D-13*EXP(1300/TEMP)*0.859)
  RCONST(278) = (2.7D-12*EXP(360/TEMP))
! RCONST(279) = constant rate coefficient
  RCONST(280) = (8.00D-13*RO2*0.70)
  RCONST(281) = (8.00D-13*RO2*0.30)
  RCONST(282) = (2.08D-12)
  RCONST(283) = (2.86D-13)
  RCONST(284) = (2.91D-13*EXP(1300/TEMP)*0.859)
  RCONST(285) = (2.7D-12*EXP(360/TEMP))
! RCONST(286) = constant rate coefficient
  RCONST(287) = (8.00D-13*RO2*0.70)
  RCONST(288) = (8.00D-13*RO2*0.30)
  RCONST(289) = (2.01D-10)
  RCONST(290) = (2.81D-17)
  RCONST(291) = (2.05D-10)
  RCONST(292) = (2.05D-11)
  RCONST(293) = (SUN*5.79E-6)
  RCONST(294) = (6.03D-12)
  RCONST(295) = (SUN*1.79E-6)
  RCONST(296) = (2.50D-14*EXP(-300/TEMP))
  RCONST(297) = (1.4D-12*EXP(-1860/TEMP))
  RCONST(298) = (1.29D-11)
  RCONST(299) = (SUN*1.10E-6)
  RCONST(300) = (SUN*1.10E-6)
  RCONST(301) = (8.93D-12)
  RCONST(302) = (1.17D-10)
  RCONST(303) = (SUN*5.79E-6)
  RCONST(304) = (7.15D-11)
  RCONST(305) = (SUN*2.99E-6)
  RCONST(306) = (1.00D+06*0.11)
  RCONST(307) = (1.00D+06*0.11)
  RCONST(308) = (1.00D+06*0.26)
  RCONST(309) = (1.00D+06*0.26)
  RCONST(310) = (1.00D+06*0.26)
  RCONST(311) = (2.50D-10)
  RCONST(312) = (7.93D-11*0.5)
  RCONST(313) = (7.93D-11*0.5)
  RCONST(314) = (SUN*3.98E-6*0.5)
  RCONST(315) = (SUN*3.98E-6*0.5)
  RCONST(316) = (5.2D-13*EXP(980/TEMP)*0.44)
  RCONST(317) = (5.2D-13*EXP(980/TEMP)*0.15)
  RCONST(318) = (5.2D-13*EXP(980/TEMP)*0.41)
  RCONST(319) = (7.5D-12*EXP(290/TEMP))
  RCONST(320) = (PAN(3.28E-28,0.,-6.87,1.125E-11,0.,-1.105,0.3))
  RCONST(321) = (2.3E-12*1.74)
  RCONST(322) = (1.00D-11*RO2*0.70)
  RCONST(323) = (1.00D-11*RO2*0.30)
  RCONST(324) = (2*1.4D-12*EXP(-1860/TEMP)*8.5)
  RCONST(325) = (4.28D-11)
  RCONST(326) = (SUN*5.50E-5*2)
  RCONST(327) = (1.00D+06*0.125)
  RCONST(328) = (1.00D+06*0.57)
  RCONST(329) = (1.00D+06*0.125)
  RCONST(330) = (1.00D+06*0.18)
  RCONST(331) = (2.91D-13*EXP(1300/TEMP)*0.859)
  RCONST(332) = (2.7D-12*EXP(360/TEMP)*0.173)
  RCONST(333) = (2.7D-12*EXP(360/TEMP)*0.827)
! RCONST(334) = constant rate coefficient
  RCONST(335) = (8.80D-13*RO2*0.2)
  RCONST(336) = (8.80D-13*RO2*0.6)
  RCONST(337) = (8.80D-13*RO2*0.2)
  RCONST(338) = (2.91D-13*EXP(1300/TEMP)*0.820)
  RCONST(339) = (2.7D-12*EXP(360/TEMP))
! RCONST(340) = constant rate coefficient
  RCONST(341) = (8.80D-13*RO2*0.2)
  RCONST(342) = (8.80D-13*RO2*0.2)
  RCONST(343) = (8.80D-13*RO2*0.6)
  RCONST(344) = (2.08D-12)
  RCONST(345) = (2.86D-13)
  RCONST(346) = (2.91D-13*EXP(1300/TEMP)*0.859)
  RCONST(347) = (2.7D-12*EXP(360/TEMP))
! RCONST(348) = constant rate coefficient
  RCONST(349) = (8.00D-13*RO2*0.70)
  RCONST(350) = (8.00D-13*RO2*0.30)
  RCONST(351) = (2.91D-13*EXP(1300/TEMP)*0.859)
  RCONST(352) = (2.7D-12*EXP(360/TEMP))
! RCONST(353) = constant rate coefficient
  RCONST(354) = (8.00D-13*RO2*0.70)
  RCONST(355) = (8.00D-13*RO2*0.30)
  RCONST(356) = (2.01D-10)
  RCONST(357) = (2.81D-17)
  RCONST(358) = (2.05D-10)
  RCONST(359) = (2.05D-11)
  RCONST(360) = (SUN*5.79E-6)
  RCONST(361) = (6.03D-12)
  RCONST(362) = (SUN*1.79E-6)
  RCONST(363) = (2.50D-14*EXP(-300/TEMP))
  RCONST(364) = (1.4D-12*EXP(-1860/TEMP))
  RCONST(365) = (1.29D-11)
  RCONST(366) = (SUN*1.10E-6)
  RCONST(367) = (SUN*1.10E-6)
  RCONST(368) = (8.93D-12)
  RCONST(369) = (7.65D-11)
  RCONST(370) = (SUN*5.79E-6)
  RCONST(371) = (7.16D-11)
  RCONST(372) = (SUN*8.33E-6)
  RCONST(373) = (1.00D+06*0.64)
  RCONST(374) = (1.00D+06*0.18)
  RCONST(375) = (1.00D+06*0.18)
  RCONST(376) = (1.12D-10)
  RCONST(377) = (5.2D-13*EXP(980/TEMP)*0.44)
  RCONST(378) = (5.2D-13*EXP(980/TEMP)*0.15)
  RCONST(379) = (5.2D-13*EXP(980/TEMP)*0.41)
  RCONST(380) = (7.5D-12*EXP(290/TEMP))
  RCONST(381) = (PAN(3.28E-28,0.,-6.87,1.125E-11,0.,-1.105,0.3))
  RCONST(382) = (2.3E-12*1.74)
  RCONST(383) = (1.00D-11*RO2*0.70)
  RCONST(384) = (1.00D-11*RO2*0.30)
  RCONST(385) = (2.91D-13*EXP(1300/TEMP)*0.859)
  RCONST(386) = (2.7D-12*EXP(360/TEMP)*0.173)
  RCONST(387) = (2.7D-12*EXP(360/TEMP)*0.827)
! RCONST(388) = constant rate coefficient
  RCONST(389) = (8.80D-12*RO2*0.2)
  RCONST(390) = (8.80D-12*RO2*0.6)
  RCONST(391) = (8.80D-12*RO2*0.2)
  RCONST(392) = (2.91D-13*EXP(1300/TEMP)*0.820)
  RCONST(393) = (2.7D-12*EXP(360/TEMP))
! RCONST(394) = constant rate coefficient
  RCONST(395) = (9.20D-14*RO2*0.70)
  RCONST(396) = (9.20D-14*RO2*0.30)
  RCONST(397) = (2.91D-13*EXP(1300/TEMP)*0.859)
  RCONST(398) = (2.7D-12*EXP(360/TEMP))
! RCONST(399) = constant rate coefficient
  RCONST(400) = (8.00D-13*RO2*0.70)
  RCONST(401) = (8.00D-13*RO2*0.30)
  RCONST(402) = (2.08D-12)
  RCONST(403) = (2.86D-13)
  RCONST(404) = (2.91D-13*EXP(1300/TEMP)*0.859)
  RCONST(405) = (2.7D-12*EXP(360/TEMP))
! RCONST(406) = constant rate coefficient
  RCONST(407) = (8.00D-13*RO2*0.70)
  RCONST(408) = (8.00D-13*RO2*0.30)
  RCONST(409) = (2.01D-10)
  RCONST(410) = (2.81D-17)
  RCONST(411) = (2.05D-10)
  RCONST(412) = (9.77D-11)
  RCONST(413) = (SUN*5.79E-6)
  RCONST(414) = (7.30D-11)
  RCONST(415) = (SUN*2.99E-6)
  RCONST(416) = (1.00D+06*0.50)
  RCONST(417) = (1.00D+06*0.50)
  RCONST(418) = (1.21D-10)
  RCONST(419) = (8.16D-11)
  RCONST(420) = (SUN*3.98E-6)
  RCONST(421) = (5.2D-13*EXP(980/TEMP)*0.15)
  RCONST(422) = (5.2D-13*EXP(980/TEMP)*0.41)
  RCONST(423) = (5.2D-13*EXP(980/TEMP)*0.44)
  RCONST(424) = (7.5D-12*EXP(290/TEMP))
  RCONST(425) = (PAN(3.28E-28,0.,-6.87,1.125E-11,0.,-1.105,0.3))
  RCONST(426) = (2.3E-12*1.74)
  RCONST(427) = (1.00D-11*RO2*0.3)
  RCONST(428) = (1.00D-11*RO2*0.7)
  RCONST(429) = (2*1.4D-12*EXP(-1860/TEMP)*4.0)
  RCONST(430) = (4.32D-11)
  RCONST(431) = (SUN*5.50E-5*2)
  RCONST(432) = (2.91D-13*EXP(1300/TEMP)*0.77)
  RCONST(433) = (2.7D-12*EXP(360/TEMP)*0.105)
  RCONST(434) = (2.7D-12*EXP(360/TEMP)*0.895)
! RCONST(435) = constant rate coefficient
  RCONST(436) = (8.80D-13*0.2*RO2)
  RCONST(437) = (8.80D-13*0.6*RO2)
  RCONST(438) = (8.80D-13*0.2*RO2)
  RCONST(439) = (2.91D-13*EXP(1300/TEMP)*0.706)
  RCONST(440) = (2.7D-12*EXP(360/TEMP))
! RCONST(441) = constant rate coefficient
  RCONST(442) = (8.80D-13*RO2*0.2)
  RCONST(443) = (8.80D-13*RO2*0.6)
  RCONST(444) = (8.80D-13*RO2*0.2)
  RCONST(445) = (2*1.4D-12*EXP(-1860/TEMP)*2.0)
  RCONST(446) = (2.00D-18)
  RCONST(447) = (5.20D-11*0.83)
  RCONST(448) = (5.20D-11*0.17)
  RCONST(449) = (SUN*8.92E-3*0.14*0.4)
  RCONST(450) = (SUN*8.92E-3*0.14*0.6)
  RCONST(451) = (2.08D-12)
  RCONST(452) = (2.86D-13)
  RCONST(453) = (2.91D-13*EXP(1300/TEMP)*0.770)
  RCONST(454) = (2.7D-12*EXP(360/TEMP))
! RCONST(455) = constant rate coefficient
  RCONST(456) = (8.00D-13*RO2*0.7)
  RCONST(457) = (8.00D-13*RO2*0.3)
  RCONST(458) = (9.9D-11)
  RCONST(459) = (9.2D-18)
  RCONST(460) = (1.0D-10)
  RCONST(461) = (2.91D-13*EXP(1300/TEMP)*0.770)
  RCONST(462) = (2.7D-12*EXP(360/TEMP))
! RCONST(463) = constant rate coefficient
  RCONST(464) = (8.00D-13*RO2*0.7)
  RCONST(465) = (8.00D-13*RO2*0.3)
  RCONST(466) = (2.05D-11)
  RCONST(467) = (SUN*5.79E-6)
  RCONST(468) = (6.03D-12)
  RCONST(469) = (SUN*1.79E-6)
  RCONST(470) = (2.50D-14*EXP(-300/TEMP))
  RCONST(471) = (SUN*3.30E-6)
  RCONST(472) = (2.40D-15)
  RCONST(473) = (5.9D-12*EXP(225/TEMP))
  RCONST(474) = (2.7D-11)
  RCONST(475) = (2.91D-13*EXP(1300/TEMP)*0.820)
  RCONST(476) = (2.7D-12*EXP(360/TEMP))
! RCONST(477) = constant rate coefficient
  RCONST(478) = (8.00D-13*RO2*0.70)
  RCONST(479) = (8.00D-13*RO2*0.30)
  RCONST(480) = (2.91D-13*EXP(1300/TEMP)*0.820)
  RCONST(481) = (2.7D-12*EXP(360/TEMP))
! RCONST(482) = constant rate coefficient
  RCONST(483) = (8.00D-13*RO2*0.70)
  RCONST(484) = (8.00D-13*RO2*0.30)
  RCONST(485) = (2.08D-12)
  RCONST(486) = (2.86D-13)
  RCONST(487) = (1.7D-10*1.0)
  RCONST(488) = (2.8D-17)
  RCONST(489) = (2.0D-10*1.0)
  RCONST(490) = (9.64D-11)
  RCONST(491) = (SUN*5.79E-6)
  RCONST(492) = (1.00D+06*0.2)
  RCONST(493) = (1.00D+06*0.2)
  RCONST(494) = (1.00D+06*0.2)
  RCONST(495) = (1.00D+06*0.2)
  RCONST(496) = (1.00D+06*0.2)
  RCONST(497) = (7.16D-11)
  RCONST(498) = (SUN*2.99E-6)
  RCONST(499) = (1.20D-10)
  RCONST(500) = (7.99D-11)
  RCONST(501) = (SUN*3.98E-6)
  RCONST(502) = (5.2D-13*EXP(980/TEMP)*0.44)
  RCONST(503) = (5.2D-13*EXP(980/TEMP)*0.15)
  RCONST(504) = (5.2D-13*EXP(980/TEMP)*0.41)
  RCONST(505) = (7.5D-12*EXP(290/TEMP))
  RCONST(506) = (PAN(3.28E-28,0.,-6.87,1.125E-11,0.,-1.105,0.3))
  RCONST(507) = (2.3E-12*1.74)
  RCONST(508) = (1.00D-11*RO2*0.7)
  RCONST(509) = (1.00D-11*RO2*0.3)
  RCONST(510) = (2.91D-13*EXP(1300/TEMP)*0.820)
  RCONST(511) = (2.7D-12*EXP(360/TEMP)*0.105)
  RCONST(512) = (2.7D-12*EXP(360/TEMP)*0.895)
! RCONST(513) = constant rate coefficient
  RCONST(514) = (8.80D-13*RO2*0.20)
  RCONST(515) = (8.80D-13*RO2*0.60)
  RCONST(516) = (8.80D-13*RO2*0.20)
  RCONST(517) = (2.91D-13*EXP(1300/TEMP)*0.770)
  RCONST(518) = (2.7D-12*EXP(360/TEMP))
! RCONST(519) = constant rate coefficient
  RCONST(520) = (8.80D-13*RO2*0.2)
  RCONST(521) = (8.80D-13*RO2*0.6)
  RCONST(522) = (8.80D-13*RO2*0.2)
  RCONST(523) = (5.2D-13*EXP(980/TEMP)*0.44)
  RCONST(524) = (5.2D-13*EXP(980/TEMP)*0.15)
  RCONST(525) = (5.2D-13*EXP(980/TEMP)*0.41)
  RCONST(526) = (7.5D-12*EXP(290/TEMP))
  RCONST(527) = (PAN(3.28E-28,0.,-6.87,1.125E-11,0.,-1.105,0.3))
  RCONST(528) = (2.3E-12*1.74)
  RCONST(529) = (1.00D-11*0.70*RO2)
  RCONST(530) = (1.00D-11*0.30*RO2)
  RCONST(531) = (2.91D-13*EXP(1300/TEMP)*0.820)
  RCONST(532) = (2.7D-12*EXP(360/TEMP))
! RCONST(533) = constant rate coefficient
  RCONST(534) = (2.50D-13*RO2)
  RCONST(535) = (8.06D-11)
  RCONST(536) = (SUN*3.98E-6)
  RCONST(537) = (3.00D-13)
  RCONST(538) = (2.20D-19)
  RCONST(539) = (4.45D-11)
  RCONST(540) = (SUN*2.68E-4)
  RCONST(541) = (1.40D-18*TEMP**2*EXP(194/TEMP))
  RCONST(542) = (1.4D-12*EXP(-1860/TEMP)*2.75)
  RCONST(543) = (2.00D-18*0.5)
  RCONST(544) = (2.00D-18*0.5)
  RCONST(545) = (6.2D-11*0.48)
  RCONST(546) = (6.2D-11*0.52)
  RCONST(547) = (SUN*8.92E-3*0.2*0.6)
  RCONST(548) = (SUN*8.92E-3*0.2*0.4)
  RCONST(549) = (1.4D-12*EXP(-1860/TEMP)*4.25)
  RCONST(550) = (5.00D-18*0.5)
  RCONST(551) = (5.00D-18*0.5)
  RCONST(552) = (7.10D-11*0.28)
  RCONST(553) = (7.10D-11*0.72)
  RCONST(554) = (SUN*8.92E-3*0.2*0.6)
  RCONST(555) = (SUN*8.92E-3*0.2*0.4)
  RCONST(556) = (1.00D-12)
  RCONST(557) = (1.40D-18)
  RCONST(558) = (3.01D-11)
  RCONST(559) = (1.00D-12)
  RCONST(560) = (8.00D-19)
  RCONST(561) = (6.90D-11)
  RCONST(562) = (3.98D-11)
  RCONST(563) = (SUN*1.10E-6+SUN*1.10E-6)
  RCONST(564) = (4.28D-11)
  RCONST(565) = (SUN*5.79E-6+SUN*1.10E-6+SUN*1.10E-6)
  RCONST(566) = (3.96D-11)
  RCONST(567) = (PAN(1.10E-5,-10100.,0.,1.90E+17,-14100.,0.,0.3))
  RCONST(568) = (5.2D-13*EXP(980/TEMP)*0.44)
  RCONST(569) = (5.2D-13*EXP(980/TEMP)*0.15)
  RCONST(570) = (5.2D-13*EXP(980/TEMP)*0.41)
  RCONST(571) = (7.5D-12*EXP(290/TEMP))
  RCONST(572) = (PAN(3.28E-28,0.,-6.87,1.125E-11,0.,-1.105,0.3))
  RCONST(573) = (2.3E-12*1.74)
  RCONST(574) = (1.00D-11*RO2*0.70)
  RCONST(575) = (1.00D-11*RO2*0.30)
  RCONST(576) = (2.91D-13*EXP(1300/TEMP)*0.706)
  RCONST(577) = (2.7D-12*EXP(360/TEMP))
! RCONST(578) = constant rate coefficient
  RCONST(579) = (9.20D-14*RO2)
  RCONST(580) = (1.2D-15)
  RCONST(581) = (1.0D-14)
  RCONST(582) = (1.0D-15)
  RCONST(583) = (7.0D-14)
  RCONST(584) = (6.0D-18)
  RCONST(585) = (1.0D-17)
  RCONST(586) = (9.33D-11)
  RCONST(587) = (SUN*5.79E-6+SUN*5.50E-5*2)
  RCONST(588) = (3.27D-11)
  RCONST(589) = (SUN*5.50E-5*2)
  RCONST(590) = (1.00D+06*0.5)
  RCONST(591) = (1.00D+06*0.5)
  RCONST(592) = (4.84D-11)
  RCONST(593) = (SUN*5.50E-5+SUN*1.25E-4)
  RCONST(594) = (8.11D-11)
  RCONST(595) = (SUN*5.50E-5*2)
  RCONST(596) = (4.28D-11)
  RCONST(597) = (SUN*1.10E-6+SUN*1.10E-6)
  RCONST(598) = (SUN*3.98E-6)
  RCONST(599) = (SUN*5.79E-6)
  RCONST(600) = (1.00D+06)
  RCONST(601) = (5.24D-11)
  RCONST(602) = (SUN*1.10E-6+SUN*1.10E-6)
  RCONST(603) = (SUN*3.98E-6)
  RCONST(604) = (1.43D-10)
  RCONST(605) = (SUN*5.79E-6)
  RCONST(606) = (SUN*2.99E-6)
  RCONST(607) = (1.00D+06)
  RCONST(608) = (1.40D-10)
  RCONST(609) = (SUN*2.99E-6)
  RCONST(610) = (3.13D-13)
  RCONST(611) = (1.53D-12)
  RCONST(612) = (2.91D-13*EXP(1300/TEMP)*0.859)
  RCONST(613) = (2.7D-12*EXP(360/TEMP))
! RCONST(614) = constant rate coefficient
  RCONST(615) = (2.50D-13*RO2)
  RCONST(616) = (1.51D-10)
  RCONST(617) = (SUN*5.79E-6)
  RCONST(618) = (1.00D+06*0.52)
  RCONST(619) = (1.00D+06*0.48)
  RCONST(620) = (1.48D-10)
  RCONST(621) = (2.08D-12)
  RCONST(622) = (2.86D-13)
  RCONST(623) = (1.00D+06)
  RCONST(624) = (5.2D-13*EXP(980/TEMP)*0.44)
  RCONST(625) = (5.2D-13*EXP(980/TEMP)*0.15)
  RCONST(626) = (5.2D-13*EXP(980/TEMP)*0.41)
  RCONST(627) = (7.5D-12*EXP(290/TEMP))
  RCONST(628) = (PAN(3.28E-28,0.,-6.87,1.125E-11,0.,-1.105,0.3))
  RCONST(629) = (2.3E-12*1.74)
  RCONST(630) = (1.00D-11*0.70*RO2)
  RCONST(631) = (1.00D-11*0.30*RO2)
  RCONST(632) = (2.91D-13*EXP(1300/TEMP)*0.820)
  RCONST(633) = (2.7D-12*EXP(360/TEMP))
! RCONST(634) = constant rate coefficient
  RCONST(635) = (2.50D-13*RO2)
  RCONST(636) = (1.4D-12*EXP(-1860/TEMP)*4.25)
  RCONST(637) = (2.0D-18*0.5)
  RCONST(638) = (2.0D-18*0.5)
  RCONST(639) = (7.00D-11*0.5)
  RCONST(640) = (7.00D-11*0.5)
  RCONST(641) = (SUN*8.92E-3*0.2*0.6)
  RCONST(642) = (SUN*8.92E-3*0.2*0.4)
  RCONST(643) = (1.00D-12)
  RCONST(644) = (8.00D-19)
  RCONST(645) = (2.67D-11)
  RCONST(646) = (1.4D-12*EXP(-1860/TEMP)*4.25)
  RCONST(647) = (1.4D-12*EXP(-1860/TEMP)*4.25)
  RCONST(648) = (5.00D-18*0.50)
  RCONST(649) = (5.00D-18*0.50)
  RCONST(650) = (4.41D-11*0.385)
  RCONST(651) = (4.41D-11*0.23)
  RCONST(652) = (4.41D-11*0.385)
  RCONST(653) = (SUN*8.92E-3*0.2*0.3)
  RCONST(654) = (SUN*8.92E-3*0.2*0.3)
  RCONST(655) = (SUN*8.92E-3*0.2*0.4)
  RCONST(656) = (1.00D-12)
  RCONST(657) = (8.00D-19)
  RCONST(658) = (2.42D-11)
  RCONST(659) = (5.2D-13*EXP(980/TEMP)*0.44)
  RCONST(660) = (5.2D-13*EXP(980/TEMP)*0.56)
  RCONST(661) = (7.5D-12*EXP(290/TEMP))
  RCONST(662) = (PAN(3.28E-28,0.,-6.87,1.125E-11,0.,-1.105,0.3))
  RCONST(663) = (2.3E-12*1.74)
  RCONST(664) = (1.00D-11*RO2)
  RCONST(665) = (5.2D-13*EXP(980/TEMP)*0.44)
  RCONST(666) = (5.2D-13*EXP(980/TEMP)*0.15)
  RCONST(667) = (5.2D-13*EXP(980/TEMP)*0.41)
  RCONST(668) = (7.5D-12*EXP(290/TEMP))
  RCONST(669) = (PAN(3.28E-28,0.,-6.87,1.125E-11,0.,-1.105,0.3))
  RCONST(670) = (2.3E-12*1.74)
  RCONST(671) = (1.00D-11*0.70*RO2)
  RCONST(672) = (1.00D-11*0.30*RO2)
  RCONST(673) = (6.00D-11)
  RCONST(674) = (SUN*1.80E-6+SUN*1.80E-6)
  RCONST(675) = (6.31D-11)
  RCONST(676) = (SUN*5.79E-6+SUN*1.80E-6+SUN*1.80E-6)
  RCONST(677) = (5.99D-11)
  RCONST(678) = (PAN(1.10E-5,-10100.,0.,1.90E+17,-14100.,0.,0.3))
  RCONST(679) = (5.2D-13*EXP(980/TEMP)*0.44)
  RCONST(680) = (5.2D-13*EXP(980/TEMP)*0.15)
  RCONST(681) = (5.2D-13*EXP(980/TEMP)*0.41)
  RCONST(682) = (7.5D-12*EXP(290/TEMP))
  RCONST(683) = (PAN(3.28E-28,0.,-6.87,1.125E-11,0.,-1.105,0.3))
  RCONST(684) = (2.3E-12*1.74)
  RCONST(685) = (1.00D-11*RO2*0.70)
  RCONST(686) = (1.00D-11*RO2*0.30)
  RCONST(687) = (2.91D-13*EXP(1300/TEMP)*0.625)
  RCONST(688) = (2.7D-12*EXP(360/TEMP))
! RCONST(689) = constant rate coefficient
  RCONST(690) = (9.20D-14*RO2*0.7)
  RCONST(691) = (9.20D-14*RO2*0.3)
  RCONST(692) = (1.2D-15)
  RCONST(693) = (1.0D-14)
  RCONST(694) = (1.0D-15)
  RCONST(695) = (7.0D-14)
  RCONST(696) = (1.0D-17)
  RCONST(697) = (6.0D-18)
  RCONST(698) = (7.41D-11)
  RCONST(699) = (SUN*5.79E-6+SUN*5.50E-5+SUN*3.98E-6)
  RCONST(700) = (3.08D-11)
  RCONST(701) = (SUN*5.50E-5+SUN*3.98E-6)
  RCONST(702) = (1.00D+06*0.5)
  RCONST(703) = (1.00D+06*0.5)
  RCONST(704) = (4.08D-11)
  RCONST(705) = (SUN*5.50E-5+SUN*2.68E-4)
  RCONST(706) = (6.20D-11)
  RCONST(707) = (SUN*5.50E-5+SUN*3.98E-6)
  RCONST(708) = (7.36D-11)
  RCONST(709) = (SUN*5.79E-6+SUN*1.80E-6+SUN*1.80E-6)
  RCONST(710) = (1.00D+06)
  RCONST(711) = (5.22D-11)
  RCONST(712) = (SUN*2.68E-4+SUN*1.80E-6+SUN*1.80E-6)
  RCONST(713) = (9.76D-11)
  RCONST(714) = (SUN*1.80E-6+SUN*1.80E-6)
  RCONST(715) = (GCARR(3.15E-14,0.0E+00,920.0))
  RCONST(716) = (3.13D-13)
  RCONST(717) = (1.53D-12)
  RCONST(718) = (2.91D-13*EXP(1300/TEMP)*0.859)
  RCONST(719) = (2.7D-12*EXP(360/TEMP))
! RCONST(720) = constant rate coefficient
  RCONST(721) = (2.50D-13*RO2)
  RCONST(722) = (1.13D-10)
  RCONST(723) = (SUN*5.79E-6)
  RCONST(724) = (1.00D+06*0.85)
  RCONST(725) = (1.00D+06*0.15)
  RCONST(726) = (1.10D-10)
  RCONST(727) = (1.07D-10)
  RCONST(728) = (SUN*2.99E-6)
  RCONST(729) = (SUN*5.79E-6)
  RCONST(730) = (1.00D+06)
  RCONST(731) = (1.03D-10)
  RCONST(732) = (SUN*2.99E-6)
  RCONST(733) = (2.08D-12)
  RCONST(734) = (2.86D-13)
  RCONST(735) = (1.00D+06)
  RCONST(736) = (5.2D-13*EXP(980/TEMP)*0.44)
  RCONST(737) = (5.2D-13*EXP(980/TEMP)*0.15)
  RCONST(738) = (5.2D-13*EXP(980/TEMP)*0.41)
  RCONST(739) = (7.5D-12*EXP(290/TEMP))
  RCONST(740) = (PAN(3.28E-28,0.,-6.87,1.125E-11,0.,-1.105,0.3))
  RCONST(741) = (2.3E-12*1.74)
  RCONST(742) = (1.00D-11*0.70*RO2)
  RCONST(743) = (1.00D-11*0.30*RO2)
  RCONST(744) = (2.91D-13*EXP(1300/TEMP)*0.820)
  RCONST(745) = (2.7D-12*EXP(360/TEMP))
! RCONST(746) = constant rate coefficient
  RCONST(747) = (2.50D-13*RO2)
  RCONST(748) = (5.00D-18)
  RCONST(749) = (4.90D-11)
  RCONST(750) = (SUN*8.92E-3*0.0057)
  RCONST(751) = (5.87D-11)
  RCONST(752) = (SUN*1.80E-6+SUN*1.80E-6)
  RCONST(753) = (6.18D-11)
  RCONST(754) = (SUN*5.79E-6+SUN*1.80E-6+SUN*1.80E-6)
  RCONST(755) = (5.85D-11)
  RCONST(756) = (PAN(1.10E-5,-10100.,0.,1.90E+17,-14100.,0.,0.3))
  RCONST(757) = (7.26D-11)
  RCONST(758) = (SUN*5.79E-6+SUN*5.50E-5+SUN*3.98E-6)
  RCONST(759) = (2.92D-11)
  RCONST(760) = (SUN*5.50E-5+SUN*3.98E-6)
  RCONST(761) = (1.00D+06*0.5)
  RCONST(762) = (1.00D+06*0.5)
  RCONST(763) = (3.58D-11)
  RCONST(764) = (SUN*5.50E-5+SUN*2.68E-4)
  RCONST(765) = (6.03D-11)
  RCONST(766) = (SUN*5.50E-5+SUN*3.98E-6)
  RCONST(767) = (8.25D-11)
  RCONST(768) = (SUN*1.80E-6+SUN*1.80E-6)
  RCONST(769) = (SUN*5.79E-6)
  RCONST(770) = (SUN*5.50E-5)
  RCONST(771) = (1.00D+06)
  RCONST(772) = (1.14D-10)
  RCONST(773) = (SUN*1.80E-6+SUN*1.80E-6)
  RCONST(774) = (SUN*5.50E-5)
  RCONST(775) = (1.43D-10)
  RCONST(776) = (SUN*5.79E-6)
  RCONST(777) = (SUN*2.99E-6)
  RCONST(778) = (1.00D+06)
  RCONST(779) = (1.40D-10)
  RCONST(780) = (SUN*2.99E-6)
  RCONST(781) = (3.13D-13)
  RCONST(782) = (1.53D-12)
  RCONST(783) = (2.91D-13*EXP(1300/TEMP)*0.859)
  RCONST(784) = (2.7D-12*EXP(360/TEMP))
! RCONST(785) = constant rate coefficient
  RCONST(786) = (2.50D-13*RO2)
  RCONST(787) = (1.51D-10)
  RCONST(788) = (SUN*5.79E-6)
  RCONST(789) = (1.00D+06*0.68)
  RCONST(790) = (1.00D+06*0.32)
  RCONST(791) = (1.48D-10)
  RCONST(792) = (2.08D-12)
  RCONST(793) = (2.86D-13)
  RCONST(794) = (1.00D+06)
  RCONST(795) = (5.2D-13*EXP(980/TEMP)*0.15)
  RCONST(796) = (5.2D-13*EXP(980/TEMP)*0.41)
  RCONST(797) = (5.2D-13*EXP(980/TEMP)*0.44)
  RCONST(798) = (7.5D-12*EXP(290/TEMP))
  RCONST(799) = (PAN(3.28E-28,0.,-6.87,1.125E-11,0.,-1.105,0.3))
  RCONST(800) = (2.3E-12*1.74)
  RCONST(801) = (1.00D-11*0.30*RO2)
  RCONST(802) = (1.00D-11*0.70*RO2)
  RCONST(803) = (4.06D-11)
  RCONST(804) = (SUN*1.10E-6+SUN*1.10E-6)
  RCONST(805) = (4.37D-11)
  RCONST(806) = (SUN*5.79E-6+SUN*1.10E-6+SUN*1.10E-6)
  RCONST(807) = (4.05D-11)
  RCONST(808) = (PAN(1.10E-5,-10100.,0.,1.90E+17,-14100.,0.,0.3))
  RCONST(809) = (5.2D-13*EXP(980/TEMP)*0.44)
  RCONST(810) = (5.2D-13*EXP(980/TEMP)*0.15)
  RCONST(811) = (5.2D-13*EXP(980/TEMP)*0.41)
  RCONST(812) = (7.5D-12*EXP(290/TEMP))
  RCONST(813) = (PAN(3.28E-28,0.,-6.87,1.125E-11,0.,-1.105,0.3))
  RCONST(814) = (2.3E-12*1.74)
  RCONST(815) = (1.00D-11*RO2*0.7)
  RCONST(816) = (1.00D-11*RO2*0.3)
  RCONST(817) = (2.91D-13*EXP(1300/TEMP)*0.520)
  RCONST(818) = (2.7D-12*EXP(360/TEMP))
! RCONST(819) = constant rate coefficient
  RCONST(820) = (8.80D-13*RO2*0.2)
  RCONST(821) = (8.80D-13*RO2*0.2)
  RCONST(822) = (8.80D-13*RO2*0.6)
  RCONST(823) = (1.31D-10)
  RCONST(824) = (SUN*5.79E-6+SUN*1.99E-5*2)
  RCONST(825) = (4.38D-11)
  RCONST(826) = (SUN*5.50E-5)
  RCONST(827) = (1.00D+06*0.5)
  RCONST(828) = (1.00D+06*0.5)
  RCONST(829) = (9.20D-11)
  RCONST(830) = (SUN*1.99E-5*2+SUN*3.98E-6)
  RCONST(831) = (8.23D-11)
  RCONST(832) = (SUN*1.99E-5*2)
  RCONST(833) = (7.52D-11)
  RCONST(834) = (SUN*5.79E-6)
  RCONST(835) = (SUN*1.10E-6+SUN*1.10E-6)
  RCONST(836) = (1.00D+06)
  RCONST(837) = (4.90D-11)
  RCONST(838) = (SUN*1.25E-4+SUN*1.10E-6+SUN*1.10E-6)
  RCONST(839) = (7.75D-11)
  RCONST(840) = (SUN*1.10E-6+SUN*1.10E-6)
  RCONST(841) = (2.91D-13*EXP(1300/TEMP)*0.625)
  RCONST(842) = (2.7D-12*EXP(360/TEMP))
! RCONST(843) = constant rate coefficient
  RCONST(844) = (8.80D-13*0.20*RO2)
  RCONST(845) = (8.80D-13*0.20*RO2)
  RCONST(846) = (8.80D-13*0.60*RO2)
  RCONST(847) = (9.00D-14)
  RCONST(848) = (9.00D-13)
  RCONST(849) = (2.91D-13*EXP(1300/TEMP)*0.770)
  RCONST(850) = (2.7D-12*EXP(360/TEMP))
! RCONST(851) = constant rate coefficient
  RCONST(852) = (2.50D-13*RO2)
  RCONST(853) = (1.07D-10)
  RCONST(854) = (SUN*2.99E-6)
  RCONST(855) = (SUN*5.79E-6)
  RCONST(856) = (1.00D+06)
  RCONST(857) = (1.04D-10)
  RCONST(858) = (SUN*2.99E-6)
  RCONST(859) = (2.08D-12)
  RCONST(860) = (2.86D-13)
  RCONST(861) = (1.00D+06)
  RCONST(862) = (1.16D-10)
  RCONST(863) = (SUN*5.79E-6)
  RCONST(864) = (1.00D+06*0.71)
  RCONST(865) = (1.00D+06*0.29)
  RCONST(866) = (1.13D-10)
  RCONST(867) = (1.1D-11*EXP(364/TEMP)*0.65)
  RCONST(868) = (1.1D-11*EXP(364/TEMP)*0.20)
  RCONST(869) = (1.1D-11*EXP(364/TEMP)*0.15)
  RCONST(870) = (7.5D-12*EXP(290/TEMP))
  RCONST(871) = (PAN(3.28E-28,0.,-6.87,1.125E-11,0.,-1.105,0.3))
  RCONST(872) = (2.3E-12*1.74)
  RCONST(873) = (1.00D-11*RO2*0.7)
  RCONST(874) = (1.00D-11*RO2*0.3)
  RCONST(875) = (1.15D-10)
  RCONST(876) = (SUN*5.79E-6)
  RCONST(877) = (1.00D+06*0.68)
  RCONST(878) = (1.00D+06*0.32)
  RCONST(879) = (1.11D-10)
  RCONST(880) = (1.07D-10)
  RCONST(881) = (SUN*2.99E-6)
  RCONST(882) = (SUN*5.79E-6)
  RCONST(883) = (1.00D+06)
  RCONST(884) = (1.04D-10)
  RCONST(885) = (SUN*2.99E-6)
  RCONST(886) = (3.13D-13*1.0)
  RCONST(887) = (2.8D-12)
  RCONST(888) = (2.08D-12)
  RCONST(889) = (2.86D-13)
  RCONST(890) = (1.00D+06*1.0)
  RCONST(891) = (5.98D-11)
  RCONST(892) = (SUN*1.10E-6+SUN*1.10E-6)
  RCONST(893) = (6.29D-11)
  RCONST(894) = (SUN*5.79E-6+SUN*1.10E-6+SUN*1.10E-6)
  RCONST(895) = (5.96D-11)
  RCONST(896) = (PAN(1.10E-5,-10100.,0.,1.90E+17,-14100.,0.,0.3))
  RCONST(897) = (7.04D-11)
  RCONST(898) = (SUN*5.79E-6+SUN*5.50E-5+SUN*3.98E-6)
  RCONST(899) = (3.06D-11)
  RCONST(900) = (SUN*5.50E-5+SUN*3.98E-6)
  RCONST(901) = (1.00D+06*0.50)
  RCONST(902) = (1.00D+06*0.50)
  RCONST(903) = (4.06D-11)
  RCONST(904) = (SUN*5.50E-5+SUN*2.68E-4)
  RCONST(905) = (6.17D-11)
  RCONST(906) = (SUN*5.50E-5+SUN*3.98E-6)
  RCONST(907) = (9.42D-11)
  RCONST(908) = (SUN*1.80E-6+SUN*1.80E-6)
  RCONST(909) = (SUN*5.79E-6)
  RCONST(910) = (1.00D+06)
  RCONST(911) = (6.45D-11)
  RCONST(912) = (SUN*1.25E-4+SUN*1.80E-6+SUN*1.80E-6)
  RCONST(913) = (1.18D-10)
  RCONST(914) = (SUN*1.80E-6+SUN*1.80E-6)
  RCONST(915) = (1.10D-12)
  RCONST(916) = (4.66D-12)
  RCONST(917) = (SUN*5.79E-6)
  RCONST(918) = (1.06D-12)
  RCONST(919) = (PAN(1.10E-5,-10100.,0.,1.90E+17,-14100.,0.,0.3)*0.67)
  RCONST(920) = (4.65D-11)
  RCONST(921) = (SUN*5.79E-6)
  RCONST(922) = (2.91D-13*EXP(1300/TEMP)*0.625)
  RCONST(923) = (2.7D-12*EXP(360/TEMP))
! RCONST(924) = constant rate coefficient
  RCONST(925) = (8.80D-13*RO2)
  RCONST(926) = (1.00D+06*0.5)
  RCONST(927) = (1.00D+06*0.5)
  RCONST(928) = (2.91D-13*EXP(1300/TEMP)*0.706)
  RCONST(929) = (2.7D-12*EXP(360/TEMP))
! RCONST(930) = constant rate coefficient
  RCONST(931) = (8.80D-13*RO2*0.2)
  RCONST(932) = (8.80D-13*RO2*0.6)
  RCONST(933) = (8.80D-13*RO2*0.2)
  RCONST(934) = (2.91D-13*EXP(1300/TEMP)*0.625)
  RCONST(935) = (2.7D-12*EXP(360/TEMP))
! RCONST(936) = constant rate coefficient
  RCONST(937) = (2.00D-12*0.6*RO2)
  RCONST(938) = (2.00D-12*0.2*RO2)
  RCONST(939) = (2.00D-12*0.2*RO2)
  RCONST(940) = (2.91D-13*EXP(1300/TEMP)*0.706)
  RCONST(941) = (2.7D-12*EXP(360/TEMP))
! RCONST(942) = constant rate coefficient
  RCONST(943) = (1.40D-12*0.20*RO2)
  RCONST(944) = (1.40D-12*0.20*RO2)
  RCONST(945) = (1.40D-12*0.60*RO2)
  RCONST(946) = (5.2D-13*EXP(980/TEMP)*0.15)
  RCONST(947) = (5.2D-13*EXP(980/TEMP)*0.41)
  RCONST(948) = (5.2D-13*EXP(980/TEMP)*0.44)
  RCONST(949) = (7.5D-12*EXP(290/TEMP))
  RCONST(950) = (PAN(3.28E-28,0.,-6.87,1.125E-11,0.,-1.105,0.3))
  RCONST(951) = (2.3E-12*1.74)
  RCONST(952) = (1.00D-11*0.30*RO2)
  RCONST(953) = (1.00D-11*0.70*RO2)
  RCONST(954) = (1.00D+06*0.11)
  RCONST(955) = (1.00D+06*0.89)
  RCONST(956) = (1.00D+06*0.27)
  RCONST(957) = (1.00D+06*0.255)
  RCONST(958) = (1.00D+06*0.255)
  RCONST(959) = (1.00D+06*0.22)
  RCONST(960) = (2.91D-13*EXP(1300/TEMP)*0.770)
  RCONST(961) = (2.7D-12*EXP(360/TEMP))
! RCONST(962) = constant rate coefficient
  RCONST(963) = (9.20D-14*0.3*RO2)
  RCONST(964) = (9.20D-14*0.7*RO2)
  RCONST(965) = (1.00D-12)
  RCONST(966) = (8.00D-17)
  RCONST(967) = (2.66D-11)
  RCONST(968) = (7.00D11*EXP(-3160/TEMP)+5.00D-12)
  RCONST(969) = (5.00D-12*3.2*(1-EXP(-550/TEMP)))
  RCONST(970) = (5.00D-12*3.2*EXP(-550/TEMP))
  RCONST(971) = (2.91D-13*EXP(1300/TEMP)*0.770)
  RCONST(972) = (2.7D-12*EXP(360/TEMP))
! RCONST(973) = constant rate coefficient
  RCONST(974) = (9.20D-14*RO2)
  RCONST(975) = (2.91D-13*EXP(1300/TEMP)*0.770)
  RCONST(976) = (2.7D-12*EXP(360/TEMP))
  RCONST(977) = (2.3E-12*1.74)
  RCONST(978) = (8.80D-13*RO2*0.2)
  RCONST(979) = (8.80D-13*RO2*0.6)
  RCONST(980) = (8.80D-13*RO2*0.2)
  RCONST(981) = (2.91D-13*EXP(1300/TEMP)*0.770)
  RCONST(982) = (2.7D-12*EXP(360/TEMP))
! RCONST(983) = constant rate coefficient
  RCONST(984) = (9.20D-14*RO2*0.70)
  RCONST(985) = (9.20D-14*RO2*0.30)
  RCONST(986) = (2.91D-13*EXP(1300/TEMP)*0.706)
  RCONST(987) = (2.7D-12*EXP(360/TEMP))
! RCONST(988) = constant rate coefficient
  RCONST(989) = (9.20D-14*RO2)
  RCONST(990) = (1.00D+06*0.5)
  RCONST(991) = (1.00D+06*0.5)
  RCONST(992) = (2.91D-13*EXP(1300/TEMP)*0.706)
  RCONST(993) = (2.7D-12*EXP(360/TEMP))
! RCONST(994) = constant rate coefficient
  RCONST(995) = (9.20D-14*RO2*0.7)
  RCONST(996) = (9.20D-14*RO2*0.3)
  RCONST(997) = (2.22D-11)
  RCONST(998) = (SUN*5.50E-5)
  RCONST(999) = (2.53D-11)
  RCONST(1000) = (SUN*5.79E-6+SUN*5.50E-5)
  RCONST(1001) = (2.21D-11)
  RCONST(1002) = (PAN(1.10E-5,-10100.,0.,1.90E+17,-14100.,0.,0.3))
  RCONST(1003) = (6.97D-11)
  RCONST(1004) = (SUN*5.50E-5)
  RCONST(1005) = (SUN*5.79E-6)
  RCONST(1006) = (SUN*3.98E-6)
  RCONST(1007) = (1.00D+06*0.5)
  RCONST(1008) = (1.00D+06*0.5)
  RCONST(1009) = (SUN*1.25E-4)
  RCONST(1010) = (1.23D-11)
  RCONST(1011) = (1.36D-10)
  RCONST(1012) = (SUN*1.99E-5*2)
  RCONST(1013) = (6.63D-11)
  RCONST(1014) = (SUN*5.50E-5)
  RCONST(1015) = (SUN*3.98E-6)
  RCONST(1016) = (5.08D-11)
  RCONST(1017) = (SUN*1.80E-6)
  RCONST(1018) = (2.08D-12)
  RCONST(1019) = (2.86D-13)
  RCONST(1020) = (4.65D-11)
  RCONST(1021) = (SUN*5.79E-6)
  RCONST(1022) = (1.00D-12)
  RCONST(1023) = (2.35D-10)
  RCONST(1024) = (5.03D-12)
  RCONST(1025) = (6.83D-12)
  RCONST(1026) = (2.91D-13*EXP(1300/TEMP)*0.859)
  RCONST(1027) = (2.7D-12*EXP(360/TEMP))
! RCONST(1028) = constant rate coefficient
  RCONST(1029) = (8.80D-13*RO2)
  RCONST(1030) = (5.44D-11)
  RCONST(1031) = (SUN*1.80E-6+SUN*1.80E-6)
  RCONST(1032) = (SUN*1.25E-4)
  RCONST(1033) = (8.0D-13)
  RCONST(1034) = (1.10D-12)
  RCONST(1035) = (4.66D-12)
  RCONST(1036) = (SUN*5.79E-6)
  RCONST(1037) = (1.06D-12)
  RCONST(1038) = (PAN(1.10E-5,-10100.,0.,1.90E+17,-14100.,0.,0.3)*0.67)
  RCONST(1039) = (1.90D-12*EXP(190/TEMP))
  RCONST(1040) = (SUN*5.79E-6)
  RCONST(1041) = (3.90D-13)
  RCONST(1042) = (5.2D-13*EXP(980/TEMP)*0.44)
  RCONST(1043) = (5.2D-13*EXP(980/TEMP)*0.56)
  RCONST(1044) = (7.5D-12*EXP(290/TEMP))
  RCONST(1045) = (PAN(3.28E-28,0.,-6.87,1.125E-11,0.,-1.105,0.3))
  RCONST(1046) = (2.3E-12*1.74)
  RCONST(1047) = (1.00D-11*0.70*RO2)
  RCONST(1048) = (1.00D-11*0.30*RO2)
  RCONST(1049) = (1.00D+06*0.89)
  RCONST(1050) = (1.00D+06*0.11)
  RCONST(1051) = (1.00D+06*0.11)
  RCONST(1052) = (1.00D+06*0.89)
  RCONST(1053) = (2.91D-13*EXP(1300/TEMP)*0.770)
  RCONST(1054) = (2.7D-12*EXP(360/TEMP))
! RCONST(1055) = constant rate coefficient
  RCONST(1056) = (9.20D-14*0.70*RO2)
  RCONST(1057) = (9.20D-14*0.30*RO2)
  RCONST(1058) = (2.91D-13*EXP(1300/TEMP)*0.770)
  RCONST(1059) = (2.7D-12*EXP(360/TEMP))
! RCONST(1060) = constant rate coefficient
  RCONST(1061) = (9.20D-14*RO2)
  RCONST(1062) = (2.91D-13*EXP(1300/TEMP)*0.706)
  RCONST(1063) = (2.7D-12*EXP(360/TEMP))
! RCONST(1064) = constant rate coefficient
  RCONST(1065) = (8.80D-13*RO2*0.2)
  RCONST(1066) = (8.80D-13*RO2*0.6)
  RCONST(1067) = (8.80D-13*RO2*0.2)
  RCONST(1068) = (2.91D-13*EXP(1300/TEMP)*0.770)
  RCONST(1069) = (2.7D-12*EXP(360/TEMP))
! RCONST(1070) = constant rate coefficient
  RCONST(1071) = (9.20D-14*RO2*0.70)
  RCONST(1072) = (9.20D-14*RO2*0.30)
  RCONST(1073) = (5.2D-13*EXP(980/TEMP)*0.41)
  RCONST(1074) = (5.2D-13*EXP(980/TEMP)*0.44)
  RCONST(1075) = (5.2D-13*EXP(980/TEMP)*0.15)
  RCONST(1076) = (7.5D-12*EXP(290/TEMP))
  RCONST(1077) = (PAN(3.28E-28,0.,-6.87,1.125E-11,0.,-1.105,0.3))
  RCONST(1078) = (2.3E-12*1.74)
  RCONST(1079) = (1.00D-11*0.70*RO2)
  RCONST(1080) = (1.00D-11*0.30*RO2)
  RCONST(1081) = (2.91D-13*EXP(1300/TEMP)*0.706)
  RCONST(1082) = (2.7D-12*EXP(360/TEMP))
! RCONST(1083) = constant rate coefficient
  RCONST(1084) = (9.20D-14*RO2*0.30)
  RCONST(1085) = (9.20D-14*RO2*0.70)
  RCONST(1086) = (2.91D-13*EXP(1300/TEMP)*0.706)
  RCONST(1087) = (2.7D-12*EXP(360/TEMP))
! RCONST(1088) = constant rate coefficient
  RCONST(1089) = (9.20D-14*RO2)
  RCONST(1090) = (2.91D-13*EXP(1300/TEMP)*0.625)
  RCONST(1091) = (2.7D-12*EXP(360/TEMP))
! RCONST(1092) = constant rate coefficient
  RCONST(1093) = (2.00D-12*RO2)
  RCONST(1094) = (2.91D-13*EXP(1300/TEMP)*0.706)
  RCONST(1095) = (2.7D-12*EXP(360/TEMP))
! RCONST(1096) = constant rate coefficient
  RCONST(1097) = (9.20D-14*RO2*0.70)
  RCONST(1098) = (9.20D-14*RO2*0.30)
  RCONST(1099) = (1.00D+06*0.35)
  RCONST(1100) = (1.00D+06*0.65)
  RCONST(1101) = (2.40D-17*0.27)
  RCONST(1102) = (2.40D-17*0.73)
  RCONST(1103) = (4.72D-11)
  RCONST(1104) = (SUN*5.64E-4*2)
  RCONST(1105) = (4.37D-11)
  RCONST(1106) = (PAN(1.10E-5,-10100.,0.,1.90E+17,-14100.,0.,0.3))
  RCONST(1107) = (1.00D+06*0.83)
  RCONST(1108) = (1.00D+06*0.17)
  RCONST(1109) = (3.59D-12)
  RCONST(1110) = (SUN*5.64E-4*2)
  RCONST(1111) = (5.43D-11)
  RCONST(1112) = (PAN(1.10E-5,-10100.,0.,1.90E+17,-14100.,0.,0.3))
  RCONST(1113) = (2.27D-11)
  RCONST(1114) = (SUN*5.50E-5)
  RCONST(1115) = (2.57D-11)
  RCONST(1116) = (SUN*5.79E-6+SUN*5.50E-5)
  RCONST(1117) = (2.25D-11)
  RCONST(1118) = (PAN(1.10E-5,-10100.,0.,1.90E+17,-14100.,0.,0.3))
  RCONST(1119) = (1.35D-10)
  RCONST(1120) = (SUN*5.79E-6)
  RCONST(1121) = (SUN*5.50E-5*2)
  RCONST(1122) = (1.00D+06)
  RCONST(1123) = (4.18D-11)
  RCONST(1124) = (SUN*5.50E-5*2)
  RCONST(1125) = (2.91D-13*EXP(1300/TEMP)*0.387)
  RCONST(1126) = (2.7D-12*EXP(360/TEMP))
! RCONST(1127) = constant rate coefficient
  RCONST(1128) = (2.00D-12*0.2*RO2)
  RCONST(1129) = (2.00D-12*0.6*RO2)
  RCONST(1130) = (2.00D-12*0.2*RO2)
  RCONST(1131) = (SUN*1.99E-5)
  RCONST(1132) = (1.4D-12*EXP(-1860/TEMP)*4.0)
  RCONST(1133) = (2.45D-11)
  RCONST(1134) = (2.08D-12)
  RCONST(1135) = (2.86D-13)
  RCONST(1136) = (4.65D-11)
  RCONST(1137) = (SUN*5.79E-6)
  RCONST(1138) = (1.00D-12)
  RCONST(1139) = (2.35D-11)
  RCONST(1140) = (5.03D-12)
  RCONST(1141) = (6.83D-12)
  RCONST(1142) = (2.91D-13*EXP(1300/TEMP)*0.859)
  RCONST(1143) = (2.7D-12*EXP(360/TEMP))
! RCONST(1144) = constant rate coefficient
  RCONST(1145) = (8.80D-13*RO2)
  RCONST(1146) = (4.66D-11)
  RCONST(1147) = (SUN*1.10E-6+SUN*1.10E-6)
  RCONST(1148) = (1.10D-12)
  RCONST(1149) = (4.66D-12)
  RCONST(1150) = (SUN*5.79E-6)
  RCONST(1151) = (1.06D-12)
  RCONST(1152) = (PAN(1.10E-5,-10100.,0.,1.90E+17,-14100.,0.,0.3)*0.67)
  RCONST(1153) = (1.90D-12*EXP(190/TEMP))
  RCONST(1154) = (SUN*5.79E-6)
  RCONST(1155) = (3.90D-13)
  RCONST(1156) = (2.91D-13*EXP(1300/TEMP)*0.770)
  RCONST(1157) = (2.7D-12*EXP(360/TEMP))
! RCONST(1158) = constant rate coefficient
  RCONST(1159) = (8.80D-13*0.20*RO2)
  RCONST(1160) = (8.80D-13*0.20*RO2)
  RCONST(1161) = (8.80D-13*0.60*RO2)
  RCONST(1162) = (2.91D-13*EXP(1300/TEMP)*0.625)
  RCONST(1163) = (2.7D-12*EXP(360/TEMP))
! RCONST(1164) = constant rate coefficient
  RCONST(1165) = (8.80D-12*RO2)
  RCONST(1166) = (2.08D-12)
  RCONST(1167) = (2.86D-13)
  RCONST(1168) = (4.65D-11)
  RCONST(1169) = (SUN*5.79E-6)
  RCONST(1170) = (1.00D-12)
  RCONST(1171) = (2.35D-11)
  RCONST(1172) = (5.03D-12)
  RCONST(1173) = (6.83D-12)
  RCONST(1174) = (2.91D-13*EXP(1300/TEMP)*0.859)
  RCONST(1175) = (2.7D-12*EXP(360/TEMP))
! RCONST(1176) = constant rate coefficient
  RCONST(1177) = (8.80D-13*RO2)
  RCONST(1178) = (4.38D-11)
  RCONST(1179) = (SUN*1.10E-6+SUN*1.10E-6)
  RCONST(1180) = (3.70D-11)
  RCONST(1181) = (SUN*1.10E-6+SUN*1.10E-6)
  RCONST(1182) = (4.00D-11)
  RCONST(1183) = (SUN*5.64E-4*2)
  RCONST(1184) = (1.00D+06*0.40)
  RCONST(1185) = (1.00D+06*0.60)
  RCONST(1186) = (3.70D-11)
  RCONST(1187) = (PAN(1.10E-5,-10100.,0.,1.90E+17,-14100.,0.,0.3))
  RCONST(1188) = (2.31D-11)
  RCONST(1189) = (SUN*5.50E-5)
  RCONST(1190) = (2.62D-11)
  RCONST(1191) = (SUN*5.79E-6+SUN*5.50E-5)
  RCONST(1192) = (2.29D-11)
  RCONST(1193) = (PAN(1.10E-5,-10100.,0.,1.90E+17,-14100.,0.,0.3))
  RCONST(1194) = (1.44D-10)
  RCONST(1195) = (SUN*5.79E-6)
  RCONST(1196) = (SUN*1.99E-5*2)
  RCONST(1197) = (1.00D+06)
  RCONST(1198) = (5.77D-11)
  RCONST(1199) = (SUN*1.99E-5*2)
  RCONST(1200) = (5.2D-13*EXP(980/TEMP)*0.44)
  RCONST(1201) = (5.2D-13*EXP(980/TEMP)*0.56)
  RCONST(1202) = (7.5D-12*EXP(290/TEMP))
  RCONST(1203) = (PAN(3.28E-28,0.,-6.87,1.125E-11,0.,-1.105,0.3))
  RCONST(1204) = (2.3E-12*1.74)
  RCONST(1205) = (1.00D-11*RO2)
  RCONST(1206) = (1.22D-10)
  RCONST(1207) = (1.90D-12*EXP(190/TEMP))
  RCONST(1208) = (SUN*1.99E-5*2)
  RCONST(1209) = (SUN*5.79E-6)
  RCONST(1210) = (1.00D+06)
  RCONST(1211) = (3.67D-11)
  RCONST(1212) = (SUN*1.25E-4+SUN*1.99E-5)
  RCONST(1213) = (8.13D-11)
  RCONST(1214) = (SUN*1.99E-5*2)
  RCONST(1215) = (2.08D-12)
  RCONST(1216) = (2.86D-13)
  RCONST(1217) = (3.60D-12)
  RCONST(1218) = (SUN*5.79E-6)
  RCONST(1219) = (2.60D-12)
  RCONST(1220) = (3.47D-12)
  RCONST(1221) = (2.91D-13*EXP(1300/TEMP)*0.770)
  RCONST(1222) = (2.7D-12*EXP(360/TEMP))
! RCONST(1223) = constant rate coefficient
  RCONST(1224) = (8.80D-13*RO2)
  RCONST(1225) = (3.00D-13)
  RCONST(1226) = (4.6D-12)
  RCONST(1227) = (4.66D-12)
  RCONST(1228) = (SUN*5.79E-6)
  RCONST(1229) = (1.10D-12)
  RCONST(1230) = (1.06D-12)
  RCONST(1231) = (PAN(1.10E-5,-10100.,0.,1.90E+17,-14100.,0.,0.3)*0.67)
  RCONST(1232) = (1.00D-12)
  RCONST(1233) = (2.3D-11)
  RCONST(1234) = (2.08D-12)
  RCONST(1235) = (2.86D-13)
  RCONST(1236) = (5.03D-12)
  RCONST(1237) = (6.83D-12)
  RCONST(1238) = (2.91D-13*EXP(1300/TEMP)*0.820)
  RCONST(1239) = (2.7D-12*EXP(360/TEMP))
! RCONST(1240) = constant rate coefficient
  RCONST(1241) = (8.80D-13*RO2)
  RCONST(1242) = (6.18D-12)
  RCONST(1243) = (SUN*5.79E-6)
  RCONST(1244) = (1.00D+06*0.5)
  RCONST(1245) = (1.00D+06*0.5)
  RCONST(1246) = (1.20D-15)
  RCONST(1247) = (1.00D-14)
  RCONST(1248) = (1.00D-15)
  RCONST(1249) = (7.00D-14)
  RCONST(1250) = (6.00D-18)
  RCONST(1251) = (1.00D-17)
  RCONST(1252) = (3.68D-11)
  RCONST(1253) = (SUN*5.79E-6)
  RCONST(1254) = (1.00D+06)
  RCONST(1255) = (1.78D-11)
  RCONST(1256) = (2.78D-11)
  RCONST(1257) = (SUN*5.79E-6+SUN*2.68E-4)
  RCONST(1258) = (1.90D-12*EXP(190/TEMP))
  RCONST(1259) = (5.99D-12)
  RCONST(1260) = (1.00D+06)
  RCONST(1261) = (SUN*2.68E-4)
  RCONST(1262) = (2.69D-12)
  RCONST(1263) = (SUN*1.25E-4)
  RCONST(1264) = (SUN*2.68E-4)
  RCONST(1265) = (1.4D-12*EXP(-1860/TEMP)*4.0)
  RCONST(1266) = (1.23D-11)
  RCONST(1267) = (1.21D-10)
  RCONST(1268) = (1.90D-12*EXP(190/TEMP))
  RCONST(1269) = (SUN*5.79E-6+SUN*1.99E-5+SUN*3.98E-6)
  RCONST(1270) = (1.00D+06)
  RCONST(1271) = (7.48D-11)
  RCONST(1272) = (SUN*1.99E-5+SUN*2.68E-4)
  RCONST(1273) = (6.26D-11)
  RCONST(1274) = (SUN*1.99E-5+SUN*3.98E-6)
  RCONST(1275) = (5.44D-11)
  RCONST(1276) = (SUN*5.64E-4*2)
  RCONST(1277) = (1.00D+06*0.35)
  RCONST(1278) = (1.00D+06*0.65)
  RCONST(1279) = (5.08D-11)
  RCONST(1280) = (PAN(1.10E-5,-10100.,0.,1.90E+17,-14100.,0.,0.3))
  RCONST(1281) = (8.8D-12*EXP(-1320/TEMP)+1.7D-14*EXP(423/TEMP))
  RCONST(1282) = (SUN*6.09E-7)
  RCONST(1283) = (1.20D-15)
  RCONST(1284) = (1.00D-14)
  RCONST(1285) = (1.00D-15)
  RCONST(1286) = (7.00D-14)
  RCONST(1287) = (6.00D-18)
  RCONST(1288) = (3.12D-11)
  RCONST(1289) = (SUN*3.98E-6+SUN*5.50E-5)
  RCONST(1290) = (SUN*5.79E-6)
  RCONST(1291) = (1.00D+06)
  RCONST(1292) = (2.77D-11)
  RCONST(1293) = (SUN*3.98E-6+SUN*5.50E-5)
  RCONST(1294) = (2.91D-13*EXP(1300/TEMP)*0.706)
  RCONST(1295) = (2.7D-12*EXP(360/TEMP))
! RCONST(1296) = constant rate coefficient
  RCONST(1297) = (9.20D-14*RO2)
  RCONST(1298) = (1.85D-11)
  RCONST(1299) = (SUN*3.98E-6+SUN*1.25E-4)
  RCONST(1300) = (2.91D-13*EXP(1300/TEMP)*0.770)
  RCONST(1301) = (2.7D-12*EXP(360/TEMP))
! RCONST(1302) = constant rate coefficient
  RCONST(1303) = (9.20D-14*RO2*0.70)
  RCONST(1304) = (9.20D-14*RO2*0.30)
  RCONST(1305) = (5.2D-13*EXP(980/TEMP)*0.15)
  RCONST(1306) = (5.2D-13*EXP(980/TEMP)*0.41)
  RCONST(1307) = (5.2D-13*EXP(980/TEMP)*0.44)
  RCONST(1308) = (7.5D-12*EXP(290/TEMP))
  RCONST(1309) = (PAN(3.28E-28,0.,-6.87,1.125E-11,0.,-1.105,0.3))
  RCONST(1310) = (2.3E-12*1.74)
  RCONST(1311) = (1.00D-11*0.7*RO2)
  RCONST(1312) = (1.00D-11*0.3*RO2)
  RCONST(1313) = (4.95D-12)
  RCONST(1314) = (SUN*5.79E-6)
  RCONST(1315) = (1.00D+06)
  RCONST(1316) = (4.42D-11)
  RCONST(1317) = (1.90D-12*EXP(190/TEMP))
  RCONST(1318) = (SUN*5.79E-6)
  RCONST(1319) = (1.00D+06)
  RCONST(1320) = (4.65D-13)
  RCONST(1321) = (SUN*3.98E-6)
  RCONST(1322) = (1.91D-11)
  RCONST(1323) = (7.12D-12)
  RCONST(1324) = (SUN*5.79E-6)
  RCONST(1325) = (1.00D+06)
  RCONST(1326) = (3.76D-12)
  RCONST(1327) = (4.44D-12)
  RCONST(1328) = (SUN*5.79E-6)
  RCONST(1329) = (1.00D+06)
  RCONST(1330) = (2.91D-13*EXP(1300/TEMP)*0.625)
  RCONST(1331) = (2.7D-12*EXP(360/TEMP))
! RCONST(1332) = constant rate coefficient
  RCONST(1333) = (2.00D-12*RO2)
  RCONST(1334) = (1.20D-15)
  RCONST(1335) = (1.00D-14)
  RCONST(1336) = (1.00D-15)
  RCONST(1337) = (7.00D-14)
  RCONST(1338) = (6.00D-18)
  RCONST(1339) = (1.00D-17)
  RCONST(1340) = (2.53D-11)
  RCONST(1341) = (SUN*5.79E-6)
  RCONST(1342) = (1.00D+06)
  RCONST(1343) = (2.19D-11)
  RCONST(1344) = (7.83D-15)
  RCONST(1345) = (5.10D-14)
  RCONST(1346) = (2.91D-13*EXP(1300/TEMP)*0.859)
  RCONST(1347) = (2.7D-12*EXP(360/TEMP))
! RCONST(1348) = constant rate coefficient
  RCONST(1349) = (2.50D-13*RO2)
  RCONST(1350) = (2.91D-13*EXP(1300/TEMP)*0.859)
  RCONST(1351) = (2.7D-12*EXP(360/TEMP))
! RCONST(1352) = constant rate coefficient
  RCONST(1353) = (8.80D-13*RO2)
  RCONST(1354) = (2.91D-13*EXP(1300/TEMP)*0.859)
  RCONST(1355) = (2.7D-12*EXP(360/TEMP))
! RCONST(1356) = constant rate coefficient
  RCONST(1357) = (8.80D-13*RO2*0.2)
  RCONST(1358) = (8.80D-13*RO2*0.6)
  RCONST(1359) = (8.80D-13*RO2*0.2)
  RCONST(1360) = (2.91D-13*EXP(1300/TEMP)*0.859)
  RCONST(1361) = (2.7D-12*EXP(360/TEMP))
! RCONST(1362) = constant rate coefficient
  RCONST(1363) = (8.00D-13*RO2)
  RCONST(1364) = (2.91D-13*EXP(1300/TEMP)*0.859)
  RCONST(1365) = (2.7D-12*EXP(360/TEMP))
! RCONST(1366) = constant rate coefficient
  RCONST(1367) = (8.00D-13*RO2)
  RCONST(1368) = (2.05D-10)
  RCONST(1369) = (SUN*5.79E-6)
  RCONST(1370) = (1.00D+06*0.35)
  RCONST(1371) = (1.00D+06*0.65)
  RCONST(1372) = (3.90D-11)
  RCONST(1373) = (SUN*5.64E-4*2)
  RCONST(1374) = (3.54D-11)
  RCONST(1375) = (PAN(1.10E-5,-10100.,0.,1.90E+17,-14100.,0.,0.3))
  RCONST(1376) = (3.54D-11)
  RCONST(1377) = (SUN*1.80E-6)
  RCONST(1378) = (1.2D-15)
  RCONST(1379) = (1.0D-14)
  RCONST(1380) = (1.0D-15)
  RCONST(1381) = (7.0D-14)
  RCONST(1382) = (6.0D-18)
  RCONST(1383) = (4.46D-11)
  RCONST(1384) = (SUN*5.50E-5)
  RCONST(1385) = (SUN*5.79E-6+SUN*3.98E-6)
  RCONST(1386) = (1.00D+06)
  RCONST(1387) = (4.13D-11)
  RCONST(1388) = (SUN*3.98E-6+SUN*5.50E-5)
  RCONST(1389) = (5.80D-12)
  RCONST(1390) = (SUN*5.79E-6)
  RCONST(1391) = (1.00D+06)
  RCONST(1392) = (6.01D-11)
  RCONST(1393) = (1.90D-12*EXP(190/TEMP))
  RCONST(1394) = (SUN*5.79E-6)
  RCONST(1395) = (1.00D+06)
  RCONST(1396) = (1.09D-13)
  RCONST(1397) = (SUN*3.98E-6)
  RCONST(1398) = (2.54D-11)
  RCONST(1399) = (3.09D-11)
  RCONST(1400) = (SUN*5.79E-6)
  RCONST(1401) = (1.00D+06)
  RCONST(1402) = (2.74D-11)
  RCONST(1403) = (2.40D-17*0.73)
  RCONST(1404) = (2.40D-17*0.27)
  RCONST(1405) = (4.72D-11)
  RCONST(1406) = (SUN*5.64E-4*2)
  RCONST(1407) = (1.00D+06*0.35)
  RCONST(1408) = (1.00D+06*0.65)
  RCONST(1409) = (4.37D-11)
  RCONST(1410) = (PAN(1.10E-5,-10100.,0.,1.90E+17,-14100.,0.,0.3))
  RCONST(1411) = (4.58D-11)
  RCONST(1412) = (SUN*5.79E-6)
  RCONST(1413) = (SUN*5.50E-5*2)
  RCONST(1414) = (1.00D+06)
  RCONST(1415) = (5.70D-11)
  RCONST(1416) = (SUN*5.50E-5*2)
  RCONST(1417) = (5.16D-12)
  RCONST(1418) = (SUN*5.79E-6)
  RCONST(1419) = (1.00D+06)
  RCONST(1420) = (2.00D-11)
  RCONST(1421) = (SUN*3.98E-6)
  RCONST(1422) = (SUN*5.79E-6)
  RCONST(1423) = (1.00D+06)
  RCONST(1424) = (2.78D-11)
  RCONST(1425) = (SUN*5.79E-6)
  RCONST(1426) = (1.00D+06)
  RCONST(1427) = (2.44D-11)
  RCONST(1428) = (1.50D-12)
  RCONST(1429) = (3.69D-12)
  RCONST(1430) = (SUN*5.79E-6+SUN*2.68E-4)
  RCONST(1431) = (1.00D+06)
  RCONST(1432) = (2.91D-13*EXP(1300/TEMP)*0.706)
  RCONST(1433) = (2.7D-12*EXP(360/TEMP))
! RCONST(1434) = constant rate coefficient
  RCONST(1435) = (9.20D-14*RO2)
  RCONST(1436) = (1.4D-12)
  RCONST(1437) = (5.2D-13*EXP(980/TEMP)*0.56)
  RCONST(1438) = (5.2D-13*EXP(980/TEMP)*0.44)
  RCONST(1439) = (7.5D-12*EXP(290/TEMP))
  RCONST(1440) = (PAN(3.28E-28,0.,-6.87,1.125E-11,0.,-1.105,0.3))
  RCONST(1441) = (2.3E-12*1.74)
  RCONST(1442) = (1.00D-11*RO2)
  RCONST(1443) = (2.91D-11)
  RCONST(1444) = (1.90D-12*EXP(190/TEMP))
  RCONST(1445) = (SUN*5.79E-6)
  RCONST(1446) = (SUN*1.99E-5)
  RCONST(1447) = (1.00D+06)
  RCONST(1448) = (5.2D-13*EXP(980/TEMP)*0.56)
  RCONST(1449) = (5.2D-13*EXP(980/TEMP)*0.44)
  RCONST(1450) = (7.5D-12*EXP(290/TEMP))
  RCONST(1451) = (PAN(3.28E-28,0.,-6.87,1.125E-11,0.,-1.105,0.3))
  RCONST(1452) = (2.3E-12*1.74)
  RCONST(1453) = (1.00D-11*RO2)
  RCONST(1454) = (7.83D-15)
  RCONST(1455) = (5.10D-14)
  RCONST(1456) = (2.91D-13*EXP(1300/TEMP)*0.859)
  RCONST(1457) = (2.7D-12*EXP(360/TEMP))
! RCONST(1458) = constant rate coefficient
  RCONST(1459) = (2.50D-13*RO2)
  RCONST(1460) = (2.91D-13*EXP(1300/TEMP)*0.859)
  RCONST(1461) = (2.7D-12*EXP(360/TEMP))
! RCONST(1462) = constant rate coefficient
  RCONST(1463) = (9.20D-14*RO2)
  RCONST(1464) = (2.91D-13*EXP(1300/TEMP)*0.859)
  RCONST(1465) = (2.7D-12*EXP(360/TEMP))
! RCONST(1466) = constant rate coefficient
  RCONST(1467) = (9.20D-14*RO2*0.7)
  RCONST(1468) = (9.20D-14*RO2*0.3)
  RCONST(1469) = (2.91D-13*EXP(1300/TEMP)*0.859)
  RCONST(1470) = (2.7D-12*EXP(360/TEMP))
! RCONST(1471) = constant rate coefficient
  RCONST(1472) = (8.00D-13*RO2)
  RCONST(1473) = (2.91D-13*EXP(1300/TEMP)*0.859)
  RCONST(1474) = (2.7D-12*EXP(360/TEMP))
! RCONST(1475) = constant rate coefficient
  RCONST(1476) = (8.00D-13*RO2)
  RCONST(1477) = (2.05D-10)
  RCONST(1478) = (SUN*5.79E-6)
  RCONST(1479) = (3.6D-12)
  RCONST(1480) = (9.75D-11)
  RCONST(1481) = (1.90D-12*EXP(190/TEMP))
  RCONST(1482) = (SUN*3.98E-6*2)
  RCONST(1483) = (SUN*5.79E-6)
  RCONST(1484) = (1.00D+06*0.7)
  RCONST(1485) = (1.00D+06*0.3)
  RCONST(1486) = (4.00D-11)
  RCONST(1487) = (SUN*3.98E-6*2)
  RCONST(1488) = (9.04D-12)
  RCONST(1489) = (SUN*3.98E-6)
  RCONST(1490) = (SUN*2.68E-4)
  RCONST(1491) = (7.83D-11)
  RCONST(1492) = (SUN*5.79E-6)
  RCONST(1493) = (SUN*3.98E-6)
  RCONST(1494) = (SUN*5.50E-5)
  RCONST(1495) = (1.00D+06*0.5)
  RCONST(1496) = (1.00D+06*0.5)
  RCONST(1497) = (7.83D-15)
  RCONST(1498) = (5.10D-14)
  RCONST(1499) = (2.91D-13*EXP(1300/TEMP)*0.859)
  RCONST(1500) = (2.7D-12*EXP(360/TEMP))
! RCONST(1501) = constant rate coefficient
  RCONST(1502) = (2.50D-13*RO2)
  RCONST(1503) = (2.91D-13*EXP(1300/TEMP)*0.859)
  RCONST(1504) = (2.7D-12*EXP(360/TEMP))
! RCONST(1505) = constant rate coefficient
  RCONST(1506) = (9.20D-14*RO2)
  RCONST(1507) = (2.91D-13*EXP(1300/TEMP)*0.859)
  RCONST(1508) = (2.7D-12*EXP(360/TEMP))
! RCONST(1509) = constant rate coefficient
  RCONST(1510) = (9.20D-14*RO2*0.70)
  RCONST(1511) = (9.20D-14*RO2*0.30)
  RCONST(1512) = (2.91D-13*EXP(1300/TEMP)*0.859)
  RCONST(1513) = (2.7D-12*EXP(360/TEMP))
! RCONST(1514) = constant rate coefficient
  RCONST(1515) = (8.00D-13*RO2)
  RCONST(1516) = (2.91D-13*EXP(1300/TEMP)*0.859)
  RCONST(1517) = (2.7D-12*EXP(360/TEMP))
! RCONST(1518) = constant rate coefficient
  RCONST(1519) = (8.00D-13*RO2)
  RCONST(1520) = (2.05D-10)
  RCONST(1521) = (SUN*5.79E-6)
  RCONST(1522) = (7.33D-11)
  RCONST(1523) = (SUN*5.79E-6)
  RCONST(1524) = (6.97D-11)
  RCONST(1525) = (PAN(1.10E-5,-10100.,0.,1.90E+17,-14100.,0.,0.3))
  RCONST(1526) = (2.45D-11)
  RCONST(1527) = (SUN*1.25E-4*2)
  RCONST(1528) = (2.25D-15)
  RCONST(1529) = (3.00D-14)
  RCONST(1530) = (2.91D-13*EXP(1300/TEMP)*0.770)
  RCONST(1531) = (2.7D-12*EXP(360/TEMP))
! RCONST(1532) = constant rate coefficient
  RCONST(1533) = (2.50D-13*RO2)
  RCONST(1534) = (2.91D-13*EXP(1300/TEMP)*0.770)
  RCONST(1535) = (2.7D-12*EXP(360/TEMP))
! RCONST(1536) = constant rate coefficient
  RCONST(1537) = (8.00D-13*RO2)
  RCONST(1538) = (2.91D-13*EXP(1300/TEMP)*0.770)
  RCONST(1539) = (2.7D-12*EXP(360/TEMP))
! RCONST(1540) = constant rate coefficient
  RCONST(1541) = (8.00D-13*RO2)
  RCONST(1542) = (1.90D-12*EXP(190/TEMP))
  RCONST(1543) = (SUN*5.79E-6)
  RCONST(1544) = (2.91D-13*EXP(1300/TEMP)*0.770)
  RCONST(1545) = (2.7D-12*EXP(360/TEMP))
! RCONST(1546) = constant rate coefficient
  RCONST(1547) = (8.80D-13*RO2)
  RCONST(1548) = (2.91D-13*EXP(1300/TEMP)*0.770)
  RCONST(1549) = (2.7D-12*EXP(360/TEMP))
! RCONST(1550) = constant rate coefficient
  RCONST(1551) = (8.80D-13*RO2*0.2)
  RCONST(1552) = (8.80D-13*RO2*0.6)
  RCONST(1553) = (8.80D-13*RO2*0.2)
  RCONST(1554) = (2.91D-13*EXP(1300/TEMP)*0.820)
  RCONST(1555) = (2.7D-12*EXP(360/TEMP))
! RCONST(1556) = constant rate coefficient
  RCONST(1557) = (8.80D-13*RO2)
  RCONST(1558) = (2.91D-13*EXP(1300/TEMP)*0.820)
  RCONST(1559) = (2.7D-12*EXP(360/TEMP))
! RCONST(1560) = constant rate coefficient
  RCONST(1561) = (8.80D-13*RO2*0.2)
  RCONST(1562) = (8.80D-13*RO2*0.6)
  RCONST(1563) = (8.80D-13*RO2*0.2)
  RCONST(1564) = (7.83D-15)
  RCONST(1565) = (5.10D-14)
  RCONST(1566) = (2.91D-13*EXP(1300/TEMP)*0.820)
  RCONST(1567) = (2.7D-12*EXP(360/TEMP))
! RCONST(1568) = constant rate coefficient
  RCONST(1569) = (2.50D-13*RO2)
  RCONST(1570) = (2.91D-13*EXP(1300/TEMP)*0.820)
  RCONST(1571) = (2.7D-12*EXP(360/TEMP))
! RCONST(1572) = constant rate coefficient
  RCONST(1573) = (8.00D-13*RO2)
  RCONST(1574) = (2.91D-13*EXP(1300/TEMP)*0.820)
  RCONST(1575) = (2.7D-12*EXP(360/TEMP))
! RCONST(1576) = constant rate coefficient
  RCONST(1577) = (8.00D-13*RO2)
  RCONST(1578) = (2.05D-10)
  RCONST(1579) = (SUN*5.79E-6)
  RCONST(1580) = (1.4D-12*EXP(-1860/TEMP)*8.0)
  RCONST(1581) = (3.44D-11)
  RCONST(1582) = (SUN*1.25E-4)
  RCONST(1583) = (1.16D-12)
  RCONST(1584) = (2.19D-11)
  RCONST(1585) = (5.2D-13*EXP(980/TEMP)*0.44)
  RCONST(1586) = (5.2D-13*EXP(980/TEMP)*0.15)
  RCONST(1587) = (5.2D-13*EXP(980/TEMP)*0.41)
  RCONST(1588) = (7.5D-12*EXP(290/TEMP))
  RCONST(1589) = (PAN(3.28E-28,0.,-6.87,1.125E-11,0.,-1.105,0.3))
  RCONST(1590) = (2.3E-12*1.74)
  RCONST(1591) = (1.00D-11*0.7*RO2)
  RCONST(1592) = (1.00D-11*0.3*RO2)
  RCONST(1593) = (1.4D-12*EXP(-1860/TEMP)*5.5)
  RCONST(1594) = (1.72D-11)
  RCONST(1595) = (SUN*1.25E-4+SUN*2.68E-4*2)
  RCONST(1596) = (1.36D-13*EXP(1250/TEMP)*0.15)
  RCONST(1597) = (1.36D-13*EXP(1250/TEMP)*0.85)
  RCONST(1598) = (2.7D-12*EXP(360/TEMP))
! RCONST(1599) = constant rate coefficient
  RCONST(1600) = (2*(3.5D-13*8.0D-12)**0.5*RO2*0.2)
  RCONST(1601) = (2*(3.5D-13*8.0D-12)**0.5*RO2*0.6)
  RCONST(1602) = (2*(3.5D-13*8.0D-12)**0.5*RO2*0.2)
  RCONST(1603) = (9.93D-11)
  RCONST(1604) = (SUN*5.79E-6)
  RCONST(1605) = (1.00D+06)
  RCONST(1606) = (2.91D-13*EXP(1300/TEMP)*0.625)
  RCONST(1607) = (2.7D-12*EXP(360/TEMP))
! RCONST(1608) = constant rate coefficient
  RCONST(1609) = (8.80D-13*0.2*RO2)
  RCONST(1610) = (8.80D-13*0.2*RO2)
  RCONST(1611) = (8.80D-13*0.6*RO2)
  RCONST(1612) = (1.37D-11)
  RCONST(1613) = (SUN*5.79E-6)
  RCONST(1614) = (1.00D+06)
  RCONST(1615) = (1.02D-11)
  RCONST(1616) = (SUN*5.79E-6+SUN*1.99E-5)
  RCONST(1617) = (1.58D-11)
  RCONST(1618) = (2.90D-12)
  RCONST(1619) = (SUN*3.98E-6)
  RCONST(1620) = (2.91D-13*EXP(1300/TEMP))
  RCONST(1621) = (2.7D-12*EXP(360/TEMP))
! RCONST(1622) = constant rate coefficient
  RCONST(1623) = (2.00D-12*RO2)
  RCONST(1624) = (1.4D-12*EXP(-1860/TEMP)*5.5)
  RCONST(1625) = (7.09D-11)
  RCONST(1626) = (SUN*1.99E-5)
  RCONST(1627) = (3.59D-12)
  RCONST(1628) = (SUN*5.79E-6)
  RCONST(1629) = (1.00D+06)
  RCONST(1630) = (8.76D-13)
  RCONST(1631) = (2.91D-13*EXP(1300/TEMP)*0.859)
  RCONST(1632) = (2.7D-12*EXP(360/TEMP))
! RCONST(1633) = constant rate coefficient
  RCONST(1634) = (8.00D-13*RO2)
  RCONST(1635) = (2.91D-13*EXP(1300/TEMP)*0.859)
  RCONST(1636) = (2.7D-12*EXP(360/TEMP))
! RCONST(1637) = constant rate coefficient
  RCONST(1638) = (8.00D-13*RO2)
  RCONST(1639) = (1.53D-12)
  RCONST(1640) = (SUN*5.79E-6)
  RCONST(1641) = (1.05D-10)
  RCONST(1642) = (SUN*5.79E-6)
  RCONST(1643) = (1.00D+06)
  RCONST(1644) = (1.61D-10)
  RCONST(1645) = (SUN*5.79E-6)
  RCONST(1646) = (1.00D+06)
  RCONST(1647) = (9.85D-11)
  RCONST(1648) = (1.30D-10)
  RCONST(1649) = (1.90D-12*EXP(190/TEMP))
  RCONST(1650) = (SUN*5.79E-6)
  RCONST(1651) = (1.00D+06)
  RCONST(1652) = (1.90D-12*EXP(190/TEMP))
  RCONST(1653) = (SUN*5.79E-6)
  RCONST(1654) = (1.00D+06)
  RCONST(1655) = (4.06D-12)
  RCONST(1656) = (SUN*3.98E-6*2)
  RCONST(1657) = (6.66D-11)
  RCONST(1658) = (SUN*2.68E-4)
  RCONST(1659) = (1.4D-12*EXP(-1860/TEMP)*8.5)
  RCONST(1660) = (2.68D-11)
  RCONST(1661) = (SUN*1.99E-5)
  RCONST(1662) = (2.91D-13*EXP(1300/TEMP)*0.706)
  RCONST(1663) = (2.7D-12*EXP(360/TEMP))
! RCONST(1664) = constant rate coefficient
  RCONST(1665) = (6.00D-13*RO2)
  RCONST(1666) = (1.00D+06)
  RCONST(1667) = (2.91D-13*EXP(1300/TEMP)*0.706)
  RCONST(1668) = (2.7D-12*EXP(360/TEMP))
! RCONST(1669) = constant rate coefficient
  RCONST(1670) = (9.20D-14*RO2)
  RCONST(1671) = (1.4D-12*EXP(-1860/TEMP)*5.5)
  RCONST(1672) = (2.15D-11)
  RCONST(1673) = (SUN*1.99E-5)
  RCONST(1674) = (2.91D-13*EXP(1300/TEMP)*0.706)
  RCONST(1675) = (2.7D-12*EXP(360/TEMP))
! RCONST(1676) = constant rate coefficient
  RCONST(1677) = (9.20D-14*RO2*0.70)
  RCONST(1678) = (9.20D-14*RO2*0.30)
  RCONST(1679) = (5.2D-13*EXP(980/TEMP)*0.44)
  RCONST(1680) = (5.2D-13*EXP(980/TEMP)*0.56)
  RCONST(1681) = (7.5D-12*EXP(290/TEMP))
  RCONST(1682) = (PAN(3.28E-28,0.,-6.87,1.125E-11,0.,-1.105,0.3))
  RCONST(1683) = (2.3E-12*1.74)
  RCONST(1684) = (1.00D-11*RO2)
  RCONST(1685) = (3.42D-11)
  RCONST(1686) = (SUN*5.79E-6+SUN*1.99E-5)
  RCONST(1687) = (SUN*5.79E-6)
  RCONST(1688) = (1.00D+06)
  RCONST(1689) = (2.91D-13*EXP(1300/TEMP)*0.625)
  RCONST(1690) = (2.7D-12*EXP(360/TEMP))
! RCONST(1691) = constant rate coefficient
  RCONST(1692) = (8.80D-13*0.2*RO2)
  RCONST(1693) = (8.80D-13*0.6*RO2)
  RCONST(1694) = (8.80D-13*0.2*RO2)
  RCONST(1695) = (6.99D-11)
  RCONST(1696) = (SUN*5.79E-6+SUN*5.50E-5)
  RCONST(1697) = (6.64D-11)
  RCONST(1698) = (PAN(1.10E-5,-10100.,0.,1.90E+17,-14100.,0.,0.3))
  RCONST(1699) = (SUN*3.98E-6)
  RCONST(1700) = (SUN*5.79E-6)
  RCONST(1701) = (7.34D-12)
  RCONST(1702) = (PAN(1.10E-5,-10100.,0.,1.90E+17,-14100.,0.,0.3))
  RCONST(1703) = (3.74D-12)
  RCONST(1704) = (2.91D-13*EXP(1300/TEMP)*0.859)
  RCONST(1705) = (2.7D-12*EXP(360/TEMP))
! RCONST(1706) = constant rate coefficient
  RCONST(1707) = (8.00D-13*RO2)
  RCONST(1708) = (2.91D-13*EXP(1300/TEMP)*0.859)
  RCONST(1709) = (2.7D-12*EXP(360/TEMP))
! RCONST(1710) = constant rate coefficient
  RCONST(1711) = (8.00D-13*RO2)
  RCONST(1712) = (1.53D-12)
  RCONST(1713) = (SUN*5.79E-6)
  RCONST(1714) = (7.54D-11)
  RCONST(1715) = (SUN*5.79E-6)
  RCONST(1716) = (1.00D+06)
  RCONST(1717) = (9.48D-11)
  RCONST(1718) = (SUN*5.79E-6)
  RCONST(1719) = (1.00D+06)
  RCONST(1720) = (9.13D-11)
  RCONST(1721) = (1.90D-12*EXP(190/TEMP))
  RCONST(1722) = (SUN*5.79E-6)
  RCONST(1723) = (1.00D+06)
  RCONST(1724) = (1.90D-12*EXP(190/TEMP))
  RCONST(1725) = (SUN*5.79E-6)
  RCONST(1726) = (1.00D+06)
  RCONST(1727) = (2.91D-13*EXP(1300/TEMP)*0.820)
  RCONST(1728) = (2.7D-12*EXP(360/TEMP))
! RCONST(1729) = constant rate coefficient
  RCONST(1730) = (9.20D-14*RO2)
  RCONST(1731) = (1.00D+06)
  RCONST(1732) = (2.91D-13*EXP(1300/TEMP)*0.859)
  RCONST(1733) = (2.7D-12*EXP(360/TEMP))
! RCONST(1734) = constant rate coefficient
  RCONST(1735) = (8.00D-13*RO2)
  RCONST(1736) = (2.91D-13*EXP(1300/TEMP)*0.859)
  RCONST(1737) = (2.7D-12*EXP(360/TEMP))
! RCONST(1738) = constant rate coefficient
  RCONST(1739) = (8.00D-13*RO2)
  RCONST(1740) = (1.53D-12)
  RCONST(1741) = (SUN*5.79E-6)
  RCONST(1742) = (7.54D-11)
  RCONST(1743) = (SUN*5.79E-6)
  RCONST(1744) = (1.00D+06)
  RCONST(1745) = (9.48D-11)
  RCONST(1746) = (SUN*5.79E-6)
  RCONST(1747) = (1.00D+06)
  RCONST(1748) = (9.13D-11)
  RCONST(1749) = (1.90D-12*EXP(190/TEMP))
  RCONST(1750) = (SUN*5.79E-6)
  RCONST(1751) = (1.00D+06)
  RCONST(1752) = (1.90D-12*EXP(190/TEMP))
  RCONST(1753) = (SUN*5.79E-6)
  RCONST(1754) = (1.00D+06)
  RCONST(1755) = (2.91D-13*EXP(1300/TEMP)*0.770)
  RCONST(1756) = (2.7D-12*EXP(360/TEMP))
! RCONST(1757) = constant rate coefficient
  RCONST(1758) = (8.00D-13*RO2)
  RCONST(1759) = (2.91D-13*EXP(1300/TEMP)*0.770)
  RCONST(1760) = (2.7D-12*EXP(360/TEMP))
! RCONST(1761) = constant rate coefficient
  RCONST(1762) = (8.00D-13*RO2)
  RCONST(1763) = (9.00D-13)
  RCONST(1764) = (SUN*5.79E-6)
  RCONST(1765) = (1.90D-12*EXP(190/TEMP))
  RCONST(1766) = (SUN*5.79E-6)
  RCONST(1767) = (1.00D+06)
  RCONST(1768) = (1.90D-12*EXP(190/TEMP))
  RCONST(1769) = (SUN*5.79E-6)
  RCONST(1770) = (1.00D+06)
  RCONST(1771) = (6.68D-11)
  RCONST(1772) = (SUN*5.79E-6)
  RCONST(1773) = (1.00D+06)
  RCONST(1774) = (1.23D-10)
  RCONST(1775) = (SUN*5.79E-6)
  RCONST(1776) = (1.00D+06)
  RCONST(1777) = (6.07D-11)
  RCONST(1778) = (9.18D-11)
  RCONST(1779) = (8.56D-11)
  RCONST(1780) = (SUN*5.79E-6)
  RCONST(1781) = (1.00D+06)
  RCONST(1782) = (1.42D-10)
  RCONST(1783) = (SUN*5.79E-6)
  RCONST(1784) = (1.00D+06)
  RCONST(1785) = (7.95D-11)
  RCONST(1786) = (1.11D-10)
  RCONST(1787) = (2.91D-13*EXP(1300/TEMP)*0.820)
  RCONST(1788) = (2.7D-12*EXP(360/TEMP))
! RCONST(1789) = constant rate coefficient
  RCONST(1790) = (8.00D-13*RO2)
  RCONST(1791) = (2.91D-13*EXP(1300/TEMP)*0.820)
  RCONST(1792) = (2.7D-12*EXP(360/TEMP))
! RCONST(1793) = constant rate coefficient
  RCONST(1794) = (8.00D-13*RO2)
  RCONST(1795) = (1.53D-12)
  RCONST(1796) = (SUN*5.79E-6)
  RCONST(1797) = (1.90D-12*EXP(190/TEMP))
  RCONST(1798) = (SUN*5.79E-6)
  RCONST(1799) = (1.00D+06)
  RCONST(1800) = (1.90D-12*EXP(190/TEMP))
  RCONST(1801) = (SUN*5.79E-6)
  RCONST(1802) = (1.00D+06)
  RCONST(1803) = (2.73D-12)
  RCONST(1804) = (6.19D-12)
  RCONST(1805) = (SUN*5.79E-6)
  RCONST(1806) = (1.12D-12)
  RCONST(1807) = (PAN(1.10E-5,-10100.,0.,1.90E+17,-14100.,0.,0.3))
  RCONST(1808) = (1.00D+06)
  RCONST(1809) = (GCARR(2.66E-12,0.0E+00,200.0))
  RCONST(1810) = (GCARR(1.14E-12,0.0E+00,200.0))
  RCONST(1811) = (SUN*6.49E-6)
  RCONST(1812) = (GC_HACOHA(2.15E-12,0.0E+00,305.0))
  RCONST(1813) = (GC_HACOHB(2.15E-12,0.0E+00,305.0))
  RCONST(1814) = (SUN*2.88E-6)
  RCONST(1815) = (GCARR(4.00E-13,0.0E+00,0.0))
  RCONST(1816) = (1.88D-11)
  RCONST(1817) = (1.90D-12*EXP(190/TEMP))
  RCONST(1818) = (SUN*3.98E-6)
  RCONST(1819) = (SUN*5.79E-6)
  RCONST(1820) = (1.00D+06)
  RCONST(1821) = (5.86D-12)
  RCONST(1822) = (SUN*3.98E-6)
  RCONST(1823) = (1.72D-11)
  RCONST(1824) = (SUN*5.79E-6)
  RCONST(1825) = (1.00D+06)
  RCONST(1826) = (5.2D-13*EXP(980/TEMP)*0.56)
  RCONST(1827) = (5.2D-13*EXP(980/TEMP)*0.44)
  RCONST(1828) = (7.5D-12*EXP(290/TEMP))
  RCONST(1829) = (PAN(3.28E-28,0.,-6.87,1.125E-11,0.,-1.105,0.3))
  RCONST(1830) = (2.3E-12*1.74)
  RCONST(1831) = (1.00D-11*RO2)
  RCONST(1832) = (1.90D-12*EXP(190/TEMP))
  RCONST(1833) = (SUN*5.79E-6)
  RCONST(1834) = (1.00D+06)
  RCONST(1835) = (1.90D-12*EXP(190/TEMP))
  RCONST(1836) = (SUN*5.79E-6)
  RCONST(1837) = (1.00D+06)
  RCONST(1838) = (1.15D-10)
  RCONST(1839) = (SUN*1.25E-4*2)
  RCONST(1840) = (5.2D-13*EXP(980/TEMP)*0.44)
  RCONST(1841) = (5.2D-13*EXP(980/TEMP)*0.56)
  RCONST(1842) = (7.5D-12*EXP(290/TEMP))
  RCONST(1843) = (PAN(3.28E-28,0.,-6.87,1.125E-11,0.,-1.105,0.3))
  RCONST(1844) = (2.3E-12*1.74)
  RCONST(1845) = (1.00D-11*RO2)
  RCONST(1846) = (1.90D-12*EXP(190/TEMP))
  RCONST(1847) = (2.04D-13)
  RCONST(1848) = (SUN*2.68E-4)
  RCONST(1849) = (5.2D-13*EXP(980/TEMP)*0.44)
  RCONST(1850) = (5.2D-13*EXP(980/TEMP)*0.56)
  RCONST(1851) = (7.5D-12*EXP(290/TEMP))
  RCONST(1852) = (PAN(3.28E-28,0.,-6.87,1.125E-11,0.,-1.105,0.3))
  RCONST(1853) = (2.3E-12*1.74)
  RCONST(1854) = (1.00D-11*RO2)
  RCONST(1855) = (5.2D-13*EXP(980/TEMP)*0.15)
  RCONST(1856) = (5.2D-13*EXP(980/TEMP)*0.41)
  RCONST(1857) = (5.2D-13*EXP(980/TEMP)*0.44)
  RCONST(1858) = (7.5D-12*EXP(290/TEMP))
  RCONST(1859) = (PAN(3.28E-28,0.,-6.87,1.125E-11,0.,-1.105,0.3))
  RCONST(1860) = (2.3E-12*1.74)
  RCONST(1861) = (1.00D-11*RO2*0.3)
  RCONST(1862) = (1.00D-11*RO2*0.7)
  RCONST(1863) = (1.19D-11)
  RCONST(1864) = (SUN*5.79E-6)
  RCONST(1865) = (SUN*3.98E-6)
  RCONST(1866) = (1.00D+06)
  RCONST(1867) = (3.42D-11)
  RCONST(1868) = (SUN*5.79E-6)
  RCONST(1869) = (SUN*5.79E-6)
  RCONST(1870) = (SUN*1.99E-5)
  RCONST(1871) = (1.00D+06)
  RCONST(1872) = (5.2D-13*EXP(980/TEMP)*0.15)
  RCONST(1873) = (5.2D-13*EXP(980/TEMP)*0.41)
  RCONST(1874) = (5.2D-13*EXP(980/TEMP)*0.44)
  RCONST(1875) = (7.5D-12*EXP(290/TEMP))
  RCONST(1876) = (PAN(3.28E-28,0.,-6.87,1.125E-11,0.,-1.105,0.3))
  RCONST(1877) = (2.3E-12*1.74)
  RCONST(1878) = (1.00D-11*RO2*0.3)
  RCONST(1879) = (1.00D-11*RO2*0.7)
  RCONST(1880) = (1.69D-11)
  RCONST(1881) = (SUN*5.79E-6)
  RCONST(1882) = (1.00D+06)
  RCONST(1883) = (1.34D-11)
  RCONST(1884) = (1.02D-13)
  RCONST(1885) = (PAN(1.10E-5,-10100.,0.,1.90E+17,-14100.,0.,0.3))
  RCONST(1886) = (4.66D-11)
  RCONST(1887) = (SUN*5.79E-6)
  RCONST(1888) = (1.00D+06)
  RCONST(1889) = (2.55D-11)
  RCONST(1890) = (5.68D-12)
  RCONST(1891) = (1.90D-12*EXP(190/TEMP))
  RCONST(1892) = (SUN*5.79E-6)
  RCONST(1893) = (1.00D+06)
  RCONST(1894) = (1.90D-12*EXP(190/TEMP))
  RCONST(1895) = (SUN*5.79E-6)
  RCONST(1896) = (1.00D+06)
  RCONST(1897) = (7.04D-11)
  RCONST(1898) = (SUN*1.25E-4+SUN*2.68E-4)
  RCONST(1899) = (5.2D-13*EXP(980/TEMP)*0.44)
  RCONST(1900) = (5.2D-13*EXP(980/TEMP)*0.56)
  RCONST(1901) = (7.5D-12*EXP(290/TEMP))
  RCONST(1902) = (PAN(3.28E-28,0.,-6.87,1.125E-11,0.,-1.105,0.3))
  RCONST(1903) = (2.3E-12*1.74)
  RCONST(1904) = (1.00D-11*RO2)
  RCONST(1905) = (1.52D-10)
  RCONST(1906) = (SUN*5.79E-6)
  RCONST(1907) = (1.00D+06)
  RCONST(1908) = (1.90D-12*EXP(190/TEMP))
  RCONST(1909) = (SUN*5.79E-6)
  RCONST(1910) = (1.00D+06)
  RCONST(1911) = (1.90D-12*EXP(190/TEMP))
  RCONST(1912) = (SUN*5.79E-6)
  RCONST(1913) = (1.00D+06)
  RCONST(1914) = (8.35D-11)
  RCONST(1915) = (SUN*1.25E-4+SUN*2.68E-4)
  RCONST(1916) = (5.2D-13*EXP(980/TEMP)*0.56)
  RCONST(1917) = (5.2D-13*EXP(980/TEMP)*0.44)
  RCONST(1918) = (7.5D-12*EXP(290/TEMP))
  RCONST(1919) = (PAN(3.28E-28,0.,-6.87,1.125E-11,0.,-1.105,0.3))
  RCONST(1920) = (2.3E-12*1.74)
  RCONST(1921) = (1.0D-11*RO2)
  RCONST(1922) = (1.90D-12*EXP(190/TEMP))
  RCONST(1923) = (SUN*5.79E-6)
  RCONST(1924) = (1.00D+06)
  RCONST(1925) = (1.90D-12*EXP(190/TEMP))
  RCONST(1926) = (SUN*5.79E-6)
  RCONST(1927) = (1.00D+06)
  RCONST(1928) = (1.90D-12*EXP(190/TEMP))
  RCONST(1929) = (7.70D-11)
  RCONST(1930) = (SUN*1.25E-4*2)
  RCONST(1931) = (5.2D-13*EXP(980/TEMP)*0.56)
  RCONST(1932) = (5.2D-13*EXP(980/TEMP)*0.44)
  RCONST(1933) = (7.5D-12*EXP(290/TEMP))
  RCONST(1934) = (PAN(3.28E-28,0.,-6.87,1.125E-11,0.,-1.105,0.3))
  RCONST(1935) = (2.3E-12*1.74)
  RCONST(1936) = (1.00D-11*RO2)
  RCONST(1937) = (9.58D-11)
  RCONST(1938) = (SUN*1.25E-4*2)
  RCONST(1939) = (5.2D-13*EXP(980/TEMP)*0.44)
  RCONST(1940) = (5.2D-13*EXP(980/TEMP)*0.56)
  RCONST(1941) = (7.5D-12*EXP(290/TEMP))
  RCONST(1942) = (PAN(3.28E-28,0.,-6.87,1.125E-11,0.,-1.105,0.3))
  RCONST(1943) = (2.3E-12*1.74)
  RCONST(1944) = (1.00D-11*RO2)
  RCONST(1945) = (1.90D-12*EXP(190/TEMP))
  RCONST(1946) = (SUN*5.79E-6)
  RCONST(1947) = (1.00D+06)
  RCONST(1948) = (1.90D-12*EXP(190/TEMP))
  RCONST(1949) = (SUN*5.79E-6)
  RCONST(1950) = (1.00D+06)
  RCONST(1951) = (3.59D-12)
  RCONST(1952) = (SUN*5.79E-6)
  RCONST(1953) = (1.00D-14)
  RCONST(1954) = (PAN(1.10E-5,-10100.,0.,1.90E+17,-14100.,0.,0.3))
  RCONST(1955) = (5.2D-13*EXP(980/TEMP)*0.56)
  RCONST(1956) = (5.2D-13*EXP(980/TEMP)*0.44)
  RCONST(1957) = (7.5D-12*EXP(290/TEMP))
  RCONST(1958) = (PAN(3.28E-28,0.,-6.87,1.125E-11,0.,-1.105,0.3))
  RCONST(1959) = (2.3E-12*1.74)
  RCONST(1960) = (1.00D-11*RO2)
  RCONST(1961) = (9.83D-11)
  RCONST(1962) = (SUN*5.79E-6)
  RCONST(1963) = (9.51D-11)
  RCONST(1964) = (PAN(1.10E-5,-10100.,0.,1.90E+17,-14100.,0.,0.3))
  RCONST(1965) = (1.00D+06)
  RCONST(1966) = (2.91D-13*EXP(1300/TEMP)*0.706)
  RCONST(1967) = (2.7D-12*EXP(360/TEMP))
! RCONST(1968) = constant rate coefficient
  RCONST(1969) = (2.00D-12*RO2)
  RCONST(1970) = (4.16D-12)
  RCONST(1971) = (SUN*5.79E-6+SUN*2.68E-4)
  RCONST(1972) = (5.66D-13)
  RCONST(1973) = (PAN(1.10E-5,-10100.,0.,1.90E+17,-14100.,0.,0.3))
  RCONST(1974) = (6.58D-12)
  RCONST(1975) = (9.69D-12)
  RCONST(1976) = (SUN*5.79E-6)
  RCONST(1977) = (6.46D-12)
  RCONST(1978) = (PAN(1.10E-5,-10100.,0.,1.90E+17,-14100.,0.,0.3))
  RCONST(1979) = (8.76D-13)
  RCONST(1980) = (4.34D-12)
  RCONST(1981) = (SUN*5.79E-6)
  RCONST(1982) = (7.36D-13)
  RCONST(1983) = (PAN(1.10E-5,-10100.,0.,1.90E+17,-14100.,0.,0.3))
  RCONST(1984) = (5.2D-13*EXP(980/TEMP)*0.56)
  RCONST(1985) = (5.2D-13*EXP(980/TEMP)*0.44)
  RCONST(1986) = (7.5D-12*EXP(290/TEMP))
  RCONST(1987) = (PAN(3.28E-28,0.,-6.87,1.125E-11,0.,-1.105,0.3))
  RCONST(1988) = (2.3E-12*1.74)
  RCONST(1989) = (1.00D-11*RO2)
  RCONST(1990) = (2.15D-11)
  RCONST(1991) = (SUN*3.98E-6+SUN*1.25E-4)
  RCONST(1992) = (2.75D-11)
  RCONST(1993) = (SUN*5.79E-6)
  RCONST(1994) = (2.42D-11)
  RCONST(1995) = (PAN(1.10E-5,-10100.,0.,1.90E+17,-14100.,0.,0.3))
  RCONST(1996) = (5.2D-13*EXP(980/TEMP)*0.56)
  RCONST(1997) = (5.2D-13*EXP(980/TEMP)*0.44)
  RCONST(1998) = (7.5D-12*EXP(290/TEMP))
  RCONST(1999) = (PAN(3.28E-28,0.,-6.87,1.125E-11,0.,-1.105,0.3))
  RCONST(2000) = (2.3E-12*1.74)
  RCONST(2001) = (1.00D-11*RO2)
  RCONST(2002) = (2.75D-11)
  RCONST(2003) = (SUN*5.79E-6)
  RCONST(2004) = (2.42D-11)
  RCONST(2005) = (PAN(1.10E-5,-10100.,0.,1.90E+17,-14100.,0.,0.3))
  RCONST(2006) = (1.00D+06)
  RCONST(2007) = (5.2D-13*EXP(980/TEMP)*0.56)
  RCONST(2008) = (5.2D-13*EXP(980/TEMP)*0.44)
  RCONST(2009) = (7.5D-12*EXP(290/TEMP))
  RCONST(2010) = (PAN(3.28E-28,0.,-6.87,1.125E-11,0.,-1.105,0.3))
  RCONST(2011) = (2.3E-12*1.74)
  RCONST(2012) = (1.00D-11*RO2)
  RCONST(2013) = (8.01D-11)
  RCONST(2014) = (SUN*5.79E-6)
  RCONST(2015) = (7.66D-11)
  RCONST(2016) = (PAN(1.10E-5,-10100.,0.,1.90E+17,-14100.,0.,0.3))
  RCONST(2017) = (9.29D-11)
  RCONST(2018) = (SUN*5.79E-6)
  RCONST(2019) = (8.96D-11)
  RCONST(2020) = (PAN(1.10E-5,-10100.,0.,1.90E+17,-14100.,0.,0.3))
  RCONST(2021) = (9.82D-11)
  RCONST(2022) = (4.15D-11)
  RCONST(2023) = (SUN*5.79E-6+SUN*1.25E-4)
  RCONST(2024) = (3.82D-11)
  RCONST(2025) = (PAN(1.10E-5,-10100.,0.,1.90E+17,-14100.,0.,0.3))
  RCONST(2026) = (9.59D-12)
  RCONST(2027) = (SUN*5.79E-6+SUN*2.68E-4)
  RCONST(2028) = (1.00D+06)
  RCONST(2029) = (1.4D-12*EXP(-1860/TEMP)*4.0)
  RCONST(2030) = (1.27D-11)
  RCONST(2031) = (SUN*3.98E-6)
  RCONST(2032) = (3.60D-11)
  RCONST(2033) = (SUN*5.79E-6+SUN*1.25E-4)
  RCONST(2034) = (3.28D-11)
  RCONST(2035) = (PAN(1.10E-5,-10100.,0.,1.90E+17,-14100.,0.,0.3))
  RCONST(2036) = (3.60D-11)
  RCONST(2037) = (SUN*5.79E-6+SUN*1.25E-4)
  RCONST(2038) = (3.28D-11)
  RCONST(2039) = (PAN(1.10E-5,-10100.,0.,1.90E+17,-14100.,0.,0.3))
  RCONST(2040) = (3.06D-11)
  RCONST(2041) = (SUN*5.79E-6+SUN*1.25E-4)
  RCONST(2042) = (2.74D-11)
  RCONST(2043) = (PAN(1.10E-5,-10100.,0.,1.90E+17,-14100.,0.,0.3))
  RCONST(2044) = (SUN*1.2e-5)
  RCONST(2045) = (SUN*1.2e-5)
  RCONST(2046) = (SUN*1.2e-5)
  RCONST(2047) = (SUN*1.2e-5)
  RCONST(2048) = (SUN*1.2e-5)
  RCONST(2049) = (SUN*1.2e-5)
  RCONST(2050) = (SUN*1.2e-5)
  RCONST(2051) = (SUN*1.2e-5)
  RCONST(2052) = (k_3rd(TEMP,2.5E+19_dp,9.7E-29,5.6,9.3E-12,1.5,0.6))
  RCONST(2053) = (k_3rd(TEMP,2.5E+19_dp,9.7E-29,5.6,9.3E-12,1.5,0.6))
  RCONST(2054) = (k_3rd(TEMP,2.5E+19_dp,9.7E-29,5.6,9.3E-12,1.5,0.6))
  RCONST(2055) = (k_3rd(TEMP,2.5E+19_dp,9.7E-29,5.6,9.3E-12,1.5,0.6))
  RCONST(2056) = (k_3rd(TEMP,2.5E+19_dp,9.7E-29,5.6,9.3E-12,1.5,0.6))
  RCONST(2057) = (k_3rd(TEMP,2.5E+19_dp,9.7E-29,5.6,9.3E-12,1.5,0.6))
  RCONST(2058) = (k_3rd(TEMP,2.5E+19_dp,9.7E-29,5.6,9.3E-12,1.5,0.6))
  RCONST(2059) = (k_3rd(TEMP,2.5E+19_dp,9.7E-29,5.6,9.3E-12,1.5,0.6))
  RCONST(2060) = (k_3rd(TEMP,2.5E+19_dp,9.7E-29,5.6,9.3E-12,1.5,0.6))
  RCONST(2061) = (k_3rd(TEMP,2.5E+19_dp,9.7E-29,5.6,9.3E-12,1.5,0.6))
  RCONST(2062) = (2.91D-13*EXP(1300/TEMP)*0.77*0.6)
  RCONST(2063) = (2.91D-13*EXP(1300/TEMP)*0.77*0.4)
  RCONST(2064) = (2.91D-13*EXP(1300/TEMP)*0.82*0.6)
  RCONST(2065) = (2.91D-13*EXP(1300/TEMP)*0.82*0.4)
  RCONST(2066) = (2.91D-13*EXP(1300/TEMP)*0.859*0.6)
  RCONST(2067) = (2.91D-13*EXP(1300/TEMP)*0.859*0.4)
  RCONST(2068) = (2.91D-13*EXP(1300/TEMP)*0.859*0.6)
  RCONST(2069) = (2.91D-13*EXP(1300/TEMP)*0.859*0.4)
  RCONST(2070) = (2.91D-13*EXP(1300/TEMP)*0.859*0.6)
  RCONST(2071) = (2.91D-13*EXP(1300/TEMP)*0.859*0.4)
      
END SUBROUTINE Update_RCONST

! End of Update_RCONST function
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
! 
! Update_PHOTO - function to update photolytical rate constants
!   Arguments :
! 
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

SUBROUTINE Update_PHOTO ( )


   USE aromatics_kpp_Global

      
END SUBROUTINE Update_PHOTO

! End of Update_PHOTO function
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~



END MODULE aromatics_kpp_Rates

